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Preface 

This book was written using the Commodore 64, a 1 541 disk drive and 
an Epson FX-80 (oh! and a TV with me pushing the keys occasionally). 
The programs were formatted using the Epson's facilities. The book 
was largely inspired by my sleepless nights huddled over my Vic and 
later my 64 trying to get commercial software to work. 

So my thanks go to the incompetent software houses for their blunders 
and to Jim Butterfield for his excellent Supermon 64. Thanks are also 
due to many friends and colleagues including Nick Hampshire for the 
job, and especially to my publishers for supporting and indulging me. 

The programs and information in this book expose areas of the 64 not 
often talked about and offer different ways of tackling the problems 
this presents. All the routines are fully explained, including parts of 
the 64's operating system. 

I have included some utility routines which should also prove useful. 
The end result for the reader should be a more understandable 64. 



K.B. 



I dedicate this book and the leaves within to all those who are 'locked 
in' and don't know, also to Mary Smythe who resides with the dust 
now, but knew what it was like to be here. 
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Introduction 

My career as a programmer started at Middlesex Polytechnic, where 
I was studying to become a primary school teacher. One day I spotted 
a notice labelled 'Terminal room', and having determined that it wasn't 
a place in which overwrought students were disposed of, I asked about 
this curious room full of odd objects and tense humans. 

It turned out to be the college's computer system, a Dec 10, which 
was spread over five colleges and had 120 people using the system 
at any one time. I was not scheduled to use the system for some two 
years, so I nagged for permission to 'challenge' the machine until I 
was eventually given a number. The following three months saw me 
in the computer room for two hours every day with a ragged and 
inadequate manual, trying to discover if I was telling the machine what 
to do or the reverse. 

Having managed to come to grips with Basic by spending too much 
of my study time on it, I invested in a Vic-20 and spent all of my time 
and money on that, often to the exclusion of sleep. 

At this point I decided that I had better make micros my career. I be- 
gan work on Commodore Computing International, where I carried 
on with my obsession. This book is probably more a result of the past 
four years than any other writing I have done, and I hope that you 
enjoy it. 

The title of the book refers to those moments when everything you 
want to do or try to do with the 64 seems impossible. It also refers 
to those particular routines and techniques which are at certain levels 
impossible. In general. Impossible Routines is intended to be a very 
usable guide to those tricky and lesser-known areas of the 64. I hope 
that you will be able to use it in this way and enjoy the process. 
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Symbol Chart 



Included here is a chart of the abbreviations used in the listings to in- 
dicate the 64's control characters. This should avoid any confusion. 



[CD] 


= CURSOR DOWN 


[CR] 


= CURSOR RIGHT 


[CL] 


= CURSOR LEFT 


[CU] 


= CURSOR UP 


[CLR] 


= SHIFT AND CLR/HOME 


[HME] 


= CLR/HOME 


[F1]-[F8] 


= FUNCTION KEYS 


[BLK] 


= CTRL & 1 


[WHT] 


= CTRL & 2 


[RED] 


= CTRL & 3 


[CYN] 


= CTRL & 4 


[PUR] 


= CTRL & 5 


[GRN] 


= CTRL & 6 


[BLU] 


= CTRL & 7 


[YEL] 


= CTRL & 8 


[SH] 


= SHIFT (with character following) 


[LO] 


= LOGO (with character following) 



The shift and logo keys are used for the graphics and any numbers 
inside the square brackets indicate the number of characters. 
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1. Supermon 64 

I have included a copy of Jim Butterfield's excellent Supermon, which 
you will definitely need. This kind of utility is usually placed at the back 
of books. It was decided in this case to place Supermon at the front 
as it will be in constant use. 

Unfortunately Supermon is rather a large program. It occupies the ad- 
dresses from 2048 decimal $0800 hex to 4591 decimal $1 1 EF hex, some 
2543 bytes. 

In order to make entering Supermon as smooth as possible and avoid 
previous confusions, it is presented here as a Basic program with a 
checksum; a memory dump is also included as you may well want 
to see it. A disassembly would have been too long and untidy. 

Entering Supermon 

In order to enter Supermon we must first leave enough room for it 
by moving the beginning of Basic, so before you start tapping away 
enter the following in direct mode: 

POKE 8192, 8 : POKE 44, 32 < press return > 

This leaves enough room for us to enter Supermon. Now start the 
laborious task of entering the program with all the data statements 
exactly as shown. It is best to keep track of your position by marking 
it with a pencil when you have (eventually) finished. Then save the 
program onto tape or disk in the normal way. 

Testing Supermon 

Now that you have a copy of the Basic program, RUN the program. 
There will be a pause and a message will tell you when Supermon 
has been entered. If you got it right first time, congratulations. If you 
didn't it's back to the drawing board to discover the error. If you make 
any corrections don't forget to re-save the program before trying again. 
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10 POKE53280,2:POKE53281,0:PRINT"PLEASE WAIT. 



20 MEM = 2048: COUNT = 

30 READ NUM:IF NUM — 1 THEN60 

40 POKE MEM, NUM 8 MEM - MEM +1: COUNT - COUNT + NUM 

50 BOTO30 

60 IF CO <> 283598 OR ME <> 4591 THEN PR I NT "DATA 

ERROR SHOULD BE 283598 ";" NOT"; CO: END 

70 PRINT" DATA ENTERED OK NOW ENTER FINAL POKES" 

80 END 

90 DATA0, 26, 8, 100, 0,153, 34, 147, IB, 29, 29, 29, 29, 83, 

85,80 

100 DATA69, 82, 32, 54, 52, 45, 77, 79, 78, 0,49, 8, 110, 0,1 
53,34 

110 DATA1 7, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32 

,32,32 

120 DATA0, 75, 8, 120, 0,153, 34, 17, 32, 46, 46, 74, 73, 77, 
32,66 

130 DATA85, 84, 84, 69, 82, 70, 73, 69, 76, 68, 0,102, 8, 130 

,0,158 

140 DATA40, 194, 40, 52, 51, 41, 170, 50, 53, 54, 172, 194, 4 
52 52 41 

150 DATA170, 49, 50, 55, 41, 0,0, 0,170, 170, 170, 170, 170 

,170,170, 170 

160 DATA170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 1 

70, 170, 170, 170, 170, 170 

170 DATA165,45, 133,34, 165,46, 133,35, 165,55, 133,36 

,165,56,133,37 

180 DATA160, 0,165, 34, 208, 2, 198, 35, 198, 34, 177, 34, 2 

08,60,165,34 

190 DATA208,2, 198,35, 198,34, 177,34,240,33, 133,38, 

165,34,208,2 

200 DATA198, 35, 198, 34, 177, 34, 24, 101, 36, 170, 165, 38 

,101,37,72,165 

210 DATA55, 208, 2, 198, 56, 198, 55, 104, 145, 55, 138, 72, 

165,55,208,2 

220 DATA198,56, 198,55, 104, 145,55,24, 144, 182,201 ,7 

9,208,237,165,55 

230 DATA133, 51, 165, 56, 133, 52, 108, 55, 0,79, 79, 79, 79 

,173,230,255 

240 DATA0, 141, 22, 3, 173, 231, 255, 0,141, 23, 3, 169, 128 

,32,144,255 

250 DATA0, 0,216, 104, 141, 62, 2, 104, 141, 61, 2, 104, 141 

,60,2,104 

260 DATA141, 59, 2, 104, 170, 104, 168, 56, 138, 233, 2, 141 
58 2 152 233 

270'DATA0j0, 141 ,57,2, 186, 142,63,2,32,87,253,0, 162 

,66,169 

280 DATA42, 32, 87, 250, 0,169, 62, 208, 52, 230, 193, 208, 

6,230,194,208 

290 DATA2, 230, 38, 96, 32, 207, 255, 201, 13, 208,248, 104 
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SM^A^l^S,^, 0,0, 133, 38,162, 13, 169, 46,32, 8 
^S^Alse", 32, 210, 255, 32, 62, 248, 0,201, 46, 240, 249 

^DATA^; 1^221,183, 255,0, 20B, 12, 138, 10, 170, IB 

*9 1*9*9 255 72 

330 DATA1B9, 198,255,0,72,96,202, 16,236,76,237,250 

SIA'dATASbI"^, 194, 141,57, 2,96,169,8, 133, 29, 160 
350 DATA84, 253, 0,177, 193, 32, 72, 250, 0,32, 51, 248,0, 

sH'SlA^i, 96,32, 136,250,0, 144, 11, 162,0,0,129, 19 

3 1*93 193 240 

370 DATA3', 76, 237, 250, 0,32, 51, 248,0, 198, 29, 96, 169, 

■e 133 1*93 

380 DATA169, 2, 133, 194, 169, 5, 96, 152,72, 32, 87, 253,0 

39rDATA7ttB7, 250,0, 169, 158,32,210,255, 162,0,0, 18 

<9 ^?34 2^5 

400 DATA32, 210, 255, 232, 224, 22,208, 245, 160, 59, 32,1 

l^DATA^S;", 250,0, 173,58,2,32,72,250,0,32, 183 

248 
420 DATA32, 141, 248, 0,240, 92, 32, 62, 248, 0,32, 121, 25 

? 3 S'iJ?A32, 105,250,0,32,62,248,0,32, 121 ,250,0, 144 
44^^250,0,169, 158, 32, 210, 255, 32, 225, 255, 240, 6 

;50 6 DATAi6S!l95,197, 193,165,196,229,194, 144,46,16 
;;rDA?A32!65!2 5 S,0,32, 139,248,0,240,224,76,237,2 
4?0 a DA?A250,0, 144,3,32, 128,248,0,32, 183,248,0,208 
480 3 DATA250,0,144,235,169,8,133,29,32,62,248,0,32 
U^DA^AMB, 248, 76, 71, 248, 0,32, 207, 255, 201, 13, 240 
Sm'dStAM^, 121, 250,0, 144,3,32, 128,248,0, 169,1 

s!0 3 DA?A?7^63, 2, 154, 120, 173,57,2,72,173,58,2, 72, 

1 7T 59 2 

520 DAiA72, 173, 60, 2, 174,61, 2, 172,62, 2,64, 169, 158, 

530 2 iSTAi?4, 63,2, 154, 108,2, 160, 160,1, 132, 186, 132, 

S^'JaTaIS;^, 132, 147, 169,64, 133, 187, 169,2, 133, 
188,32,207,255,201 
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350 DATA32, 240, 249, 201, 13, 240, 56, 201, 34, 208,20, 32 

,207,255,201,34 

560 DATA240,16,201,13,240,41,145,1B7,230,183,200, 

192 16 208 236 76 

570 'dATA237, 250, 0,32, 207, 255, 201 , 13,240,22,201 ,44 

,208,220,32,136 

580 DATA250, 0,41, 15, 240, 233, 201, 3, 240, 229, 133, 186 

,32,207,255,201 

590 DATA13, 96, 108, 48, 3, 108, 50, 3, 32, 150, 249, 0,208, 

212,169,158 

600 DATA32, 210, 255, 169, 0,0, 32, 239, 249, 0,165, 144, 4 

1,16,208,196 

610 DATA76.71 ,248,0,32, 150,249,0,201 ,44,208, 186,3 

2,121,250,0 

620 DATA32, 105, 250, 0,32, 207, 255, 201, 44, 208, 173, 32 

,121,250,0,165 

630 DATA193, 133, 174, 165, 194, 133, 175,32, 105,250,0, 

32,207,235,201,13 

640 DATA20B, 152, 169, 158, 32, 210, 255, 32, 242, 249, 0,7 

6,71,248,0,165 

650 DATA194, 32, 72, 250, 0,165, 193, 72, 74, 74, 74, 74, 32 

,96,250,0 

660 DATA170, 104, 41, 15, 32, 96, 250, 0,72, 138, 32, 210, 2 

55,104,76,210 

670 DATA255, 9, 48, 201, 58, 144, 2, 105, 6, 96, 162, 2, 181, 

192,72,181 

680 DATA194, 149, 192, 104, 149, 194, 202, 208, 243, 96, 32 

,136,250,0,144,2 

690 DATA133, 194, 32, 136, 250, 0,144, 2, 133, 193, 96, 169 

,0,0,133,42 

700 DATA32, 62, 248, 0,201, 32, 208, 9, 32, 62, 248, 0,201, 

32,208,14 

710 DATA24, 96, 32, 175, 250, 0,10, 10, 10, 10, 133, 42, 32, 

62,248,0 

720 DATA32, 173, 250, 0,5, 42, 56, 96, 201, 58, 144, 2, 105, 

8,41,15 

730 DATA96, 162, 2, 44, 162, 0,0, 180, 193, 208, 8, 180, 194 

,208,2,230 

740 DATA38, 214, 194,214, 193,96,32,62,248,0,201 ,32, 

240,249,96,169 

750 DATA0, 0,141, 0,0, 1,32, 204, 250, 0,32, 143, 250, 0,3 

2,124 

760 DATA250, 0,144, 9, 96, 32, 62,248, 0,32, 121, 250, 0,1 

76,222,174 

770 DATA63, 2, 154, 169, 158, 32, 210, 255, 169, 63, 32, 210 

,255,76,71,248 

780 DATA0, 32, 84, 253, 0,202, 208, 250, 96, 230, 195, 208, 

2 230 196 96 

790 DATA162, 2, 181, 192, 72, 181, 39, 149, 192, 104, 149, 3 

9,202,208,243,96 

800 DATA165, 195, 164, 196,56,233,2, 176, 14, 136, 144,1 
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1,165,40,164,41 

810 DATA76.51 ,251 ,0, 165, 195, 164, 196,56,229, 193, 13 

3 30 152 22*? 194 

820 DATA16B, 5, 30, 96, 32, 212, 250, 0,32, 105, 250, 0,32, 

229,250,0 

830 DATA32, 12, 251, 0,32, 229, 250, 0,32, 47, 251, 0,32,1 

05,250,0 

840 DATA144, 21, 166, 38, 208, 100, 32, 40, 251, 0,144, 95, 

161,193,129,195 

850 DATA32, 5, 251, 0,32, 51, 248, 0,208, 235, 32, 40, 251, 

0,24,165 

860 DATA30, 101 , 195, 133, 195, 152, 101 , 196, 133, 196,32 

,12,251,0,166,38 

870 DATA208.61 , 161 , 193, 129, 195,32,40,251 ,0, 176,52 

,32,184,250,0 

880 DATA32, 187, 250, 0,76, 125, 251, 0,32, 212, 250, 0,32 

,105,250,0 

890 DATA32, 229, 250, 0,32, 105, 250, 0,32, 62, 248, 0,32, 

136,250,0 

900 DATA144, 20, 133, 29, 166, 38, 208, 17, 32, 47, 251, 0,1 

44,12,165,29 

910 DATA129, 193,32,51 ,248,0,208,238,76,237,250,0, 

76,71,248,0 

920 DATA32, 212, 250, 0,32, 105, 250, 0,32, 229, 250, 0,32 

,105,250,0 

930 DATA32, 62, 248, 0,162, 0,0, 32, 62, 248, 0,201, 39, 20 

8 20 32 

940 DATA62, 248, 0,157, 16, 2, 232, 32, 207, 255, 201, 13, 2 

40 34 224 32 

950 DATA208,241 ,240,28, 142,0,0, 1 ,32, 143,250,0, 144 

,198,157,16 

960 DATA2, 232, 32, 207, 255, 201, 13, 240, 9, 32, 136, 250, 

0,144,182,224 

970 DATA32, 208, 236, 134, 28, 169, 158, 32, 210, 255, 32, 8 

7,253,0,162,0 

980 DATA0, 160,0,0, 177, 193,221 , 16,2,208, 12,200,232 

,228,28,208 

990 DATA243, 32, 65, 250, 0,32, 84, 253, 0,32, 51, 248, 0,1 

66,38,208 

1000 DATA141 ,32,47,251 ,0, 176,221 ,76,71 ,248,0,32,2 

12,250,0,133 

1010 DATA32, 165, 194, 133, 33, 162, 0,0, 134, 40, 169, 147 

,32,210,255,169 

1020 DATA152, 32, 210, 255, 169, 22, 133, 29, 32, 106, 252, 

0,32,202,252,0 

1030 DATA133, 193, 132, 194, 198, 29, 208, 242, 169, 145, 3 

2,210,255,76,71,248 

1040 DATA0, 160, 44, 32, 194, 248, 0,32, 84, 253, 0,32, 65, 

250,0,32 

1050 DATAB4, 253, 0,162, 0,0, 161, 193, 32, 217, 252, 0,72 

,32,31,253 
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1060 DATA0, 104, 32, 53, 253, 0,162, 6, 224, 3, 208, IB, 164 

,31,240,14 

1070 DATA165, 42, 201, 232, 177, 193, 176, 28, 32, 194, 252 

,0,136,208,242,6 

1080 DATA42, 144, 14, 189, 42, 255, 0,32, 165, 253, 0,189, 

48 255 240 

1090 DATA3, 32, 165, 253,0, 202, 20B, 213, 96, 32, 205, 252 

,0,170,232,208 

1100 DATA1, 200, 152, 32, 194, 252, 0,138, 134, 28, 32, 72, 

250,0,166,28 

1110 DATA96, 165,31 ,56, 164, 194, 170, 16, 1 , 136, 101 , 19 

3,144,1,200,96 

1120 DATA168, 74, 144, 11, 74, 176, 23, 201, 34, 240, 19, 41 

7 9 128 74 
1130'DATA170,1B9,217,254,0,176,4,74,74,74,74,41,1 

5,208,4,160 

1140 DATA12B, 169,0,0, 170, 189,29,255,0, 133,42,41 ,3 

,133,31,152 

1150 DATA41, 143, 170, 152, 160, 3, 224, 138, 240, 11, 74,1 

44 8 74 74 9 
1160'dATA32,136,208,250,200,136,20B,242,96,177,19 

3,32,194,252,0,162 

1170 DATA1, 32, 254, 250, 0,196, 31, 200, 144, 241, 162, 3, 

192 4 144 242 

1180 DATA96, 168, 185, 55, 255, 0,133, 40, 185, 119, 255,0 

,133,41,169,0 

1190 DATA0, 160, 5, 6, 41, 38, 40, 42, 136, 208, 248, 105, 63 

,32,210,255 

1200 DATA202, 208, 236, 169, 32, 44, 169, 13, 76, 210, 255, 

32,212,250,0,32 

1210 DATA105, 250, 0,32, 229, 250, 0,32, 105, 250, 0,162, 

0,0,134,40 

1220 DATA169, 158, 32, 210, 255, 32, 87, 253, 0,32, 114, 25 

2,0,32,202,252 

1230 DATA0, 133, 193, 132, 194, 32, 225, 255, 240, 5, 32, 47 

,251,0,176,233 

1240 DATA76, 71 ,248,0,32,212,250,0, 169,3, 133,29,32 

62 248 
1250 DATA32, 161, 248, 0,208, 248, 165, 32, 133, 193, 165, 

33,133,194,76,70 

1260 DATA252,0, 197,40,240,3,32,210,255,96,32,212, 

250,0,32,105 

1270 DATA250, 0,142, 17, 2, 162, 3, 32, 204, 250, 0,72, 202 

,208,249,162 

1280 DATA3, 104, 56, 233, 63, 160, 5, 74, 110, 17, 2, 110, 16 

,2,136,208 

1290 DATA246, 202, 208, 237, 162, 2, 32, 207, 255, 201, 13, 

240,30,201,32,240 

1300 DATA245, 32, 208, 254, 0,176, 15, 32, 156, 250, 0,164 

,193,132,194,133 

1310 DATA193, 169, 48, 157, 16, 2, 232, 157, 16, 2, 232, 208 
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,219,134,40,162 

1320 DATA0, 0,134, 38, 240, 4, 230, 38, 240, 117, 162, 0,0, 

134,29,165 

1330 DATA3B, 32, 217, 252, 0,166, 42, 134, 41, 170, 188, 55 

,255,0,189,119 

1340 DATA255, 0,32, 185, 254, 0,208, 227, 162, 6, 224, 3, 2 

08,25,164,31 

1350 DATA240,21 , 165,42,201 ,232, 169,48, 176,33,32, 1 

91,254,0,208,204 

1360 DATA32, 193, 254, 0,208, 199, 136, 208, 235, 6, 42, 14 

4,11,188,48,255 

1370 DATA0, 189,42,255,0,32, IBS, 254, 0,208, 181 ,202, 

208,209,240,10 

1380 DATA32, 184, 254, 0,208, 171, 32, 184, 254, 0,208, 16 

6,165,40,197,29 

1390 DATA20B, 160, 32, 105, 250, 0,164, 31, 240, 40, 165, 4 

1,201,157,208,26 

1400 DATA32,2B,251 ,0, 144, 10, 152,208,4, 165,30, 16, 1 

0,76,237,250 

1410 DATA0, 200, 208, 250, 165, 30, 16, 246, 164, 31, 208, 3 

,185,194,0,0 

1420 DATA145, 193, 136, 208, 248, 165, 38, 145, 193, 32, 20 

2,252,0,133,193,132 

1430 DATA194, 169, 158, 32, 210, 255, 160, 65, 32, 194, 248 

,0,32,84,253,0 

1440 DATA32, 65, 250, 0,32, 84, 253, 0,169, 158, 32, 210, 2 

55,76,176,253 

1450 DATA0, 168, 32, 191, 254, 0,208, 17, 152, 240, 14, 134 

28 166 2*? 221 
1460 DATA16, 2, 8,232, 134, 29, 166, 28, 40, 96, 201, 48, 14 

4,3,201,71 

1470 DATA96, 56, 96, 64, 2, 69, 3, 208, 8, 64, 9, 48, 34, 69, 5 

1,208 

1480 DATAB, 64, 9, 64, 2, 69, 51, 208, 8, 64, 9, 64, 2, 69, 179 

,208 

1490 DATA8, 64, 9, 0,0, 34, 68, 51, 208, 140, 68, 0,0, 17, 34 

,68 

1500 DATA51, 208, 140, 68, 154, 16, 34, 68, 51, 208, 8, 64, 9 

,16,34,68 

1510 DATA51 ,208,8,64,9,98, 19, 120, 169,0,0,33, 129, 1 

30,0,0 

1520 DATA0, 0,89, 77, 145, 146, 134, 74, 133, 157, 44, 41, 4 

4,35,40,36 

1530 DATA89, 0,0, 88, 36, 36, 0,13, 28, 138, 28, 35, 93, 139, 

27,161 

1540 DATA157, 138, 29, 35, 157, 139, 29, 161, 0,0, 41, 25,1 

74,105,168,25 

1550 DATA35, 36, 83, 27, 35, 36, 83, 25, 161, 0,0, 26, 91, 91 

,165,105 

1560 DATA36, 36, 174, 174, 168, 173, 41, 0,0, 124, 0,0, 21, 

156,109,156 
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157B DATA165, 103, 41, 83, 132, 19, 52, 17, 165, 105, 35, 16 

0,216,98,90,72 

1580 DATA3S,98, 148, 136,84,68,200,84, 104,68,232, 14 

8,0,0,180,8 

1590 DATA132, 116, 180, 40, 110, 116, 244, 204, 74, 114, 24 

2,164,138,0,0,170 

1600 DATA162, 162, 116, 116, 116, 114, 68, 104, 178, 50, 17 

8,0,0,34,0,0 

1610 DATA26, 26, 38, 38, 114, 114, 136, 200, 196, 202, 38, 7 

2,68,68,162,200 

1620 DATA5B,59,B2,77,71 ,B8,76,83,B4,70,72,6B,80,4 

4,65,66 

1630 DATA249, 0,53, 249, 0,204, 248, 0,247, 248, 0,86, 24 

9,0,137,249 

1640 DATA0, 244, 249, 0,12, 250, 0,62, 251, 0,146, 251,0, 

192,251,0 

1650 DATA56, 252, 0,91, 253, 0,138, 253, 0,172, 253, 0,70 

248 255 
1660'DATA247,0,237,247,0,13,32,32,32,80,67,32,32, 

83 82 32 

1670 DATA63, 67, 32, 88, 82, 32, 89, 82, 32, S3, 80, 0,0, 0,0 

1680 DATA-1 
READY. 



B* 

PC SR AC XR YR SP 
. ; 0008 30 00 00 00 F6 

.10800 00 1A 08 64 00 99 22 93 
. :0808 12 ID ID ID ID 53 55 50 
. S0810 45 52 20 36 34 2D 4D 4F 
.10818 4E 00 31 08 6E 00 99 22 
. : 0820 11 20 20 20 20 20 20 20 
. : 0828 20 20 20 20 20 20 20 20 
. : 0830 00 4B 08 78 00 99 22 11 
. : 0838 20 2E 2E 4A 49 4D 20 42 
. s 0840 55 54 54 45 52 46 49 45 
. i 0848 4C 44 00 66 08 82 00 9E 
.8 0850 28 C2 28 34 33 29 AA 32 
.:085B 35 36 AC C2 28 34 34 29 
.:0860 AA 31 32 37 29 00 00 00 
. : 0868 AA AA AA AA AA AA AA AA 
. ( 0870 AA AA AA AA AA AA AA AA 
. : 0878 AA AA AA AA AA AA AA AA 
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. : 0880 A5 2D 85 22 AS 2E 85 23 

. :0888 AS 37 85 24 AS 38 85 25 

.8 0890 A0 00 A5 22 D0 02 C6 23 

. :0898 C6 22 Bl 22 DO 3C A5 22 

. :08A0 D0 02 C6 23 C6 22 Bl 22 

. S08A8 F0 21 85 26 A5 22 D0 02 

. 8 08B0 C6 23 C6 22 Bl 22 18 65 

. 1 08B8 24 AA AS 26 65 25 48 A5 

. : 08C0 37 D0 02 C6 38 C6 37 68 

. :08C8 91 37 8A 48 AS 37 DO 02 

. I08D0 C6 38 C6 37 68 91 37 18 

. : 08DB 90 B6 C9 4F DO ED A5 37 

. :08E0 85 33 A5 38 85 34 6C 37 

. : 08E8 00 4F 4F 4F 4F AD E6 FF 

. I08F0 00 8D 16 03 AD E7 FF 00 

. I08F8 8D 17 03 A9 80 20 90 FF 

. i 0900 00 00 D8 68 8D 3E 02 68 

.10908 8D 3D 02 68 8D 3C 02 68 

.:091O 8D 3B 02 68 AA 68 A8 38 

.8 0918 8A E9 02 8D 3A 02 98 E9 

. i 0920 00 00 8D 39 02 BA 8E 3F 

.10928 02 20 57 FD 00 A2 42 A9 

.8 0930 2A 20 57 FA 00 A9 52 DO 

.8 0938 34 E6 CI D0 06 E6 C2 DO 

. 8 0940 02 E6 26 60 20 CF FF C9 

.8 0948 OD DO F8 68 68 A9 9E 20 

. s 0950 D2 FF A9 00 00 B5 26 A2 

.8 0958 0D A9 2E 20 57 FA 00 A9 

.8 0960 9E 20 D2 FF 20 3E F8 00 

.8 0968 C9 2E FO F9 C9 20 FO F5 

.8 0970 A2 0E DD B7 FF 00 DO 0C 

.8 0978 8A 0A AA BD C7 FF 00 48 

.8 0980 BD C6 FF 00 48 60 CA 10 

.8 0988 EC 4C ED FA 00 A5 CI 8D 

.8 0990 3A 02 A5 C2 8D 39 02 60 

.8 0998 A9 08 85 ID A0 00 00 20 

. 8 09AO 54 FD 00 Bl CI 20 48 FA 

. 8 09A8 00 20 33 F8 00 C6 ID DO 

. :09B0 Fl 60 20 88 FA 00 90 OB 

. S09B8 A2 00 00 81 CI CI CI FO 

. 8 09CO 03 4C ED FA OO 20 33 FB 

. 8 09C8 00 C6 ID 60 A9 3B 85 CI 

. 8 09DO A9 02 85 C2 A9 05 60 98 

. 8 09D8 48 20 57 FD 00 68 A2 2E 

. S09E0 4C 57 FA 00 A9 9E 20 D2 

. S09E8 FF A2 00 00 BD EA FF 00 

. 8 09F0 20 D2 FF E8 E0 16 DO F5 

. s 09F8 A0 3B 20 C2 F8 00 AD 39 

. 8 0A0O 02 20 48 FA OO AD 3A 02 

. 8 0AO8 20 48 FA 00 20 B7 F8 00 

. 8 0A10 20 8D F8 00 FO 5C 20 3E 
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. :0A18 F8 00 20 79 FA 00 90 33 
. :0A20 20 69 FA 00 20 3E F8 00 
. I0A28 20 79 FA 00 90 28 20 69 
. S0A30 FA 00 A9 9E 20 D2 FF 20 
. S0A38 El FF F0 3C A6 26 D0 38 
.I0A40 A5 C3 C5 CI A5 C4 E5 C2 
. :0A48 90 2E A0 3A 20 C2 F8 00 
. S0A50 20 41 FA 00 20 BB F8 00 
.S0A5B F0 E0 4C ED FA 00 20 79 
. c 0A60 FA 00 90 03 20 80 F8 00 
. I0A68 20 B7 F8 00 D0 07 20 79 
. I0A70 FA 00 90 EB A9 08 85 ID 
. I0A78 20 3E FB 00 20 Al F8 00 
. I0A80 D0 FB 4C 47 FB 00 20 CF 
. I0A8B FF C9 0D F0 0C C9 20 D0 
. J0A90 Dl 20 79 FA 00 90 03 20 
.I0A9B 80 F8 00 A9 9E 20 D2 FF 
. I0AA0 AE 3F 02 9A 78 AD 39 02 
. I0AA8 48 AD 3A 02 48 AD 3B 02 
. I0AB0 48 AD 3C 02 AE 3D 02 AC 
. I0AB8 3E 82 40 A9 9E 20 D2 FF 
.I0AC0 AE 3F 02 9A 6C 02 A0 A0 
. 10AC8 01 84 BA 84 B9 88 84 B7 
. I0AD0 84 90 84 93 A9 40 85 BB 
. I0ADB A9 02 85 BC 20 CF FF C9 
. I0AE0 20 F0 F9 C9 0D F0 38 C9 
. I0AE8 22 D0 14 20 CF FF C9 22 
. «0AF0 F0 10 C9 0D F0 29 91 BB 
. :0AF8 E6 B7 CB C0 10 D0 EC 4C 
. I0B00 ED FA 00 20 CF FF C9 0D 
. I0B08 F0 16 C9 2C D0 DC 20 88 
. (0B10 FA 00 29 0F F0 E9 C9 03 
. I0B18 F0 E5 85 BA 20 CF FF C9 
. I0B20 0D 60 6C 30 03 6C 32 03 
. I0B28 20 96 F9 00 D0 D4 A9 9E 
. i 0B30 20 D2 FF A9 00 00 20 EF 
. :0B38 F9 00 A5 90 29 10 D0 C4 
. I0B40 4C 47 FB 00 20 96 F9 00 
. I0B48 C9 2C D0 BA 20 79 FA 00 
. I0B50 20 69 FA 00 20 CF FF C9 
. I0B58 2C D0 AD 20 79 FA 00 A5 
. I0B60 CI 85 AE A5 C2 85 AF 20 
. 9 0B68 69 FA 00 20 CF FF C9 0D 
. I0B70 D0 98 A9 9E 20 D2 FF 20 
. I0B78 F2 F9 00 4C 47 F8 00 A5 
. 10BB0 C2 20 48 FA 00 A5 CI 48 
. i 0B88 4A 4A 4A 4A 20 60 FA 00 
.(0B90 AA 68 29 0F 20 60 FA 00 
. i 0B98 4B 8A 20 D2 FF 68 4C D2 
. I0BA0 FF 09 30 C9 3A 90 02 69 
. :0BA8 06 60 A2 02 B5 C0 48 B5 
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. sOBBB C2 95 C0 68 95 C2 CA 00 
. i 0BB8 F3 60 20 B8 FA 00 90 02 
. 1 0BC0 85 C2 20 88 FA 00 90 02 
. I0BC8 85 CI 60 A9 00 00 85 2A 
. i 0BD0 20 3E FB 00 C9 20 D0 09 
. i 0BD8 20 3E F8 00 C9 20 D0 0E 
. I0BE0 IB 60 20 AF FA 00 0A 0A 
. i 0BE8 0A 0A 85 2A 20 3E FB 00 
. i 0BF0 20 AF FA 00 05 2A 38 60 
. I0BF8 C9 3A 90 02 69 08 29 OF 
. I0C00 60 A2 02 2C A2 00 00 B4 
. I0C08 CI DO 08 B4 C2 D0 02 E6 
. I0C10 26 D6 C2 D6 CI 60 20 3E 
.I0C18 F8 00 C9 20 F0 F9 60 A9 
. 10C20 00 00 BD 00 00 01 20 CC 
. i 0C28 FA 00 20 8F FA 00 20 7C 
. i 0C3O FA 00 90 09 60 20 3E F8 
. I0C38 00 20 79 FA 00 B0 DE AE 
. 1 0C40 3F 02 9A A9 9E 20 D2 FF 
. I0C48 A9 3F 20 D2 FF 4C 47 FB 
. i 0C50 00 20 54 FD 00 CA D0 FA 
. I0C58 60 E6 C3 D0 02 E6 C4 60 
. i 0C60 A2 02 B5 CO 48 B5 27 95 
. i 0C68 CO 68 95 27 CA DO F3 60 
. I0C70 A5 C3 A4 C4 38 E9 02 B0 
. 1 0C7B OE 88 90 0B A5 28 A4 29 
. 1 0C80 4C 33 FB 00 A5 C3 A4 C4 
. J0CB8 38 E5 CI 85 IE 9B E5 C2 
. I0C90 A8 05 IE 60 20 D4 FA 00 
. i 0C98 20 69 FA 00 20 E5 FA 00 
. tOCAO 20 0C FB 00 20 E5 FA 00 
. i 0CA8 20 2F FB 00 20 69 FA 00 
. IOCB0 90 15 A6 26 DO 64 20 28 
. S0CBB FB 00 90 5F Al CI 81 C3 
. i OCCO 20 05 FB 00 20 33 F8 00 
.I0CCB D0 EB 20 28 FB 00 18 A5 
. I0CDO IE 65 C3 85 C3 98 65 C4 
. i 0CD8 85 C4 20 0C FB 00 A6 26 
. I0CEO DO 3D Al CI 81 C3 20 28 
. I0CE8 FB 00 B0 34 20 B8 FA 00 
. i OCF0 20 BB FA 00 4C 7D FB 00 
. 1 0CF8 20 D4 FA 00 20 69 FA 00 
. I0D00 20 E5 FA 00 20 69 FA 00 
. i 0D08 20 3E F8 00 20 88 FA 00 
. (0D10 90 14 85 ID A6 26 DO 11 
. I0D18 20 2F FB 00 90 0C A5 ID 
. I0D20 81 CI 20 33 F8 00 D0 EE 
. 1 0D28 4C ED FA 00 4C 47 F8 00 
. i 0D3O 20 D4 FA 00 20 69 FA 00 
. i 0D3B 20 E5 FA 00 20 69 FA 00 
. 1 0D40 20 3E F8 00 A2 00 00 20 
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. I0D48 3E F8 00 C9 27 D0 14 20 
. i 0DS0 3E FB 00 9D 10 02 E8 20 
. I0D38 CF FF C9 0D F0 22 E0 20 
. I0D60 D0 Fl F0 1C 8E 00 00 01 
. I0D6B 20 8F FA 00 90 C6 9D 10 
. 1 0D70 02 E8 20 CF FF C9 0D F0 
. 1 0D7B 09 20 88 FA 00 90 B6 E0 
. S0D80 20 D0 EC 86 1C A9 9E 20 
. I0D88 D2 FF 20 57 FD 00 A2 00 
. I0D90 00 A0 00 00 Bl CI DD 10 
. I0D9B 02 D0 0C C8 E8 E4 1C D0 
. I0DA0 F3 20 41 FA 00 20 54 FD 
. i 0DAB 00 20 33 FB 00 A6 26 D0 
. B0DB0 8D 20 2F FB 00 B0 OD 4C 
. I0DB8 47 F8 00 20 D4 FA 00 85 
. I0DC0 20 A5 C2 83 21 A2 00 00 
. I0DC8 86 28 A9 93 20 D2 FF A9 
. I0DD0 98 20 D2 FF A9 16 85 ID 
. ! 0DD8 20 6A FC 00 20 CA FC 00 
. I0DE0 85 CI 84 C2 C6 ID D0 F2 
. I0DE8 A9 91 20 D2 FF 4C 47 FB 
. 1 0DF0 00 A0 2C 20 C2 F8 00 20 
. J0DF8 54 FD 00 20 41 FA 00 20 
. I0E00 54 FD 00 A2 00 00 Al CI 
. I0E08 20 D9 FC 00 4B 20 IF FD 
. I0E10 00 6B 20 35 FD 00 A2 06 
. I0E18 E0 03 D0 12 A4 IF F0 0E 
. I0E20 A5 2A C9 E8 Bl CI B0 1C 
. I0E2B 20 C2 FC 00 88 DO F2 06 
. I0E30 2A 90 0E BD 2A FF 00 20 
. I0E38 A5 FD 00 BD 30 FF 00 F0 
. 1 0E40 03 20 A5 FD 00 CA D0 D5 
. I0E48 60 20 CD FC 00 AA E8 D0 
. I0E50 01 CB 98 20 C2 FC 00 8A 
. I0E5B 86 1C 20 48 FA 00 A6 1C 
. (0E60 60 A5 IF 38 A4 C2 AA 10 
. 10E68 01 88 65 CI 90 01 CB 60 
. I0E70 AB 4A 90 0B 4A B0 17 C9 
.S0E7B 22 F0 13 29 07 09 B0 4A 
. I0E80 AA BD D9 FE 00 B0 04 4A 
. i 0E88 4A 4A 4A 29 0F D0 04 A0 
. I0E90 80 A9 00 00 AA BD ID FF 
. I0E98 00 85 2A 29 03 85 IF 98 
. I0EA0 29 8F AA 98 A0 03 E0 8A 
. I0EA8 F0 0B 4A 90 08 4A 4A 09 
. I0EB0 20 88 D0 FA CB 88 D0 F2 
. I0EB8 60 Bl CI 20 C2 FC 00 A2 
. I0EC0 01 20 FE FA 00 C4 IF CB 
. S0EC8 90 Fl A2 03 C0 04 90 F2 
. I0ED0 60 A8 B9 37 FF 00 85 28 
. I0ED8 B9 77 FF 00 85 29 A9 00 
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. :0EE0 00 A0 05 06 29 26 28 2A 
. S0EE8 88 D0 FB 69 3F 20 D2 FF 
. S0EF0 CA D0 EC A9 20 2C A9 0D 
. : 0EF8 4C D2 FF 20 D4 FA 00 20 
. I0F00 69 FA 00 20 ES FA 00 20 
. : 0F08 69 FA 00 A2 00 00 86 28 
.S0F10 A9 9E 20 D2 FF 20 57 FD 
. I0F18 00 20 72 FC 00 20 CA FC 
. I0F20 00 B5 CI 84 C2 20 El FF 
. 1 0F28 F0 05 20 2F FB 00 B0 E9 
.I0F30 4C 47 FB 00 20 D4 FA 00 
. I0F38 A9 03 85 ID 20 3E F8 00 
. J0F40 20 Al F8 00 00 F8 A5 20 
.I0F4B 85 CI A5 21 85 C2 4C 46 
. i 0F50 FC 00 C5 28 F0 03 20 D2 
. I0F58 FF 60 20 D4 FA 00 20 69 
. i 0F60 FA 00 BE 11 02 A2 03 20 
. i 0F6B CC FA 00 48 CA D0 F9 A2 
. I0F70 03 68 38 E9 3F A0 05 4A 
. I0F7B 6E 11 02 6E 10 02 88 D0 
. i 0F80 F6 CA D0 ED A2 02 20 CF 
. i 0F88 FF C9 0D F0 IE C9 20 F0 
. i 0F90 F5 20 D0 FE 00 B0 0F 20 
. J0F9B 9C FA 00 A4 CI 84 C2 85 
. I0FA0 CI A9 30 9D 10 02 E8 9D 
. I0FAB 10 02 E8 D0 DB 86 28 A2 
. I0FB0 00 00 B6 26 F0 04 E6 26 
. I0FB8 F0 75 A2 00 00 86 ID A5 
. I0FC0 26 20 D9 FC 00 A6 2A 86 
.I0FC8 29 AA BC 37 FF 00 BD 77 
. 1 0FD0 FF 00 20 B9 FE 00 D0 E3 
. I0FD8 A2 06 E0 03 D0 19 A4 IF 
. I0FE0 F0 15 AS 2A C9 E8 A9 30 
. I0FE8 B0 21 20 BF FE 00 D0 CC 
. I0FF0 20 CI FE 00 D0 C7 88 D0 
. i 0FF8 EB 06 2A 90 0B BC 30 FF 
. a 1000 00 BD 2A FF 00 20 B9 FE 
. : 1008 00 D0 B5 CA D0 Dl F0 0A 
. s 1010 20 B8 FE 00 D0 AB 20 B8 
. i 1018 FE 00 D0 A6 AS 28 C5 ID 
. i 1020 D0 A0 20 69 FA 00 A4 IF 
.11028 F0 28 AS 29 C9 9D D0 1A 
. i 1030 20 1C FB 00 90 0A 98 D0 
.11038 04 A5 IE 10 0A 4C ED FA 
.(1040 00 CB D0 FA AS IE 10 F6 
. i 1048 A4 IF D0 03 B9 C2 00 00 
. i 1050 91 CI 88 DB FB A5 26 91 
. t 1058 CI 20 CA FC 00 85 CI 84 
. s 1060 C2 A9 9E 20 D2 FF A0 41 
. i 1068 20 C2 F8 00 20 54 FD 00 
. i 1070 20 41 FA 00 20 54 FD 00 
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s 1078 


A9 


9E 


20 


D2 


FF 


4C 


B0 


FD 


t 1080 


00 


A8 


20 


BF 


FE 


00 


D0 


11 


, s 1088 


98 


F0 


0E 


86 


1C 


A6 


ID 


DD 


, i 1090 


10 


02 


08 


EB 


86 


ID 


A6 


1C 


. i 1098 


28 


60 


C9 


30 


90 


03 


C9 


47 


. i 10A0 


60 


38 


60 


40 


02 


45 


03 


D0 


. i 10A8 


08 


40 


09 


30 


22 


45 


33 


D0 


. i 10B0 


08 


40 


09 


40 


02 


45 


33 


D0 


. i 10BB 


08 


40 


09 


40 


02 


45 


B3 


D0 


. i 10C0 


08 


40 


09 


00 


00 


22 


44 


33 


. i 10C8 


D0 


BC 


44 


00 


00 


11 


22 


44 


. i 10D0 


33 


D0 


BC 


44 


9A 


10 


22 


44 


. i 10D8 


33 


D0 


08 


40 


09 


10 


22 


44 


. i 10E0 


33 


D0 


08 


40 


09 


62 


13 


78 


. i 10E8 


A9 


00 


00 


21 


81 


82 


00 


00 


. i 10F0 


00 


00 


59 


4D 


91 


92 


86 


4A 


. i 10FB 


85 


9D 


2C 


29 


2C 


23 


28 


24 


.11100 


59 


00 


00 


58 


24 


24 


00 


00 


.11108 


1C 


8A 


1C 


23 


5D 


8B 


IB 


Al 


.11110 


9D 


BA 


ID 


23 


9D 


BB 


ID 


Al 


.(1118 


00 


00 


29 


19 


AE 


69 


A8 


19 


.11120 


23 


24 


53 


IB 


23 


24 


53 


19 


.11128 


Al 


00 


00 


1A 


5B 


5B 


AS 


69 


.8 1130 


24 


24 


AE 


AE 


A8 


AD 


29 


00 


.8 1138 


00 


7C 


00 


00 


15 


9C 


6D 


9C 


.8 1140 


A5 


69 


29 


53 


84 


13 


34 


11 


.8 1148 


A5 


69 


23 


A0 


D8 


62 


5A 


48 


.8 1150 


26 


62 


94 


88 


54 


44 


C8 


54 


. 8 1 158 


68 


44 


E8 


94 


00 


00 


B4 


08 


.8 1160 


84 


74 


B4 


28 


6E 


74 


F4 


CC 


.8 1168 


4A 


72 


F2 


A4 


8A 


00 


00 


AA 


.8 1170 


A2 


A2 


74 


74 


74 


72 


44 


68 


.8 1178 


B2 


32 


B2 


00 


00 


22 


00 


00 


.8 1180 


1A 


1A 


26 


26 


72 


72 


88 


C8 


.8 1188 


C4 


CA 


26 


48 


44 


44 


A2 


C8 


.8 1190 


3A 


3B 


52 


4D 


47 


58 


4C 


53 


.8 1198 


54 


46 


48 


44 


50 


2C 


41 


42 


. 8 1 1A0 


F9 


00 


35 


F9 


00 


CC 


FB 


00 


. sllA8 


F7 


FB 


00 


56 


F9 


00 


89 


F9 


. 8 11B0 


00 


F4 


F9 


00 


0C 


FA 


00 


3E 



. S11B8 FB 00 92 FB 00 C0 FB 00 
. b 1 1C0 38 FC 00 5B FD 00 BA FD 
.B11C8 00 AC FD 00 46 FB 00 FF 
.8 11D0 F7 00 ED F7 00 0D 20 20 
.sllDB 20 50 43 20 20 53 52 20 
.8 11E0 41 43 20 58 52 20 59 52 
. sllEB 20 53 50 00 00 00 00 00 
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Saving Supermon 

When your Basic program has successfully entered the data, you will 
need to save the machine code version of Supermon. To do this, enter 
the following in direct mode: 

POKE 44, 8 = POKE 45, 235 = POKE 46, 17 = CLR< press return > 

You now have a working copy of Supermon in memory, and a normal 
save to tape or disk will save it for you. 



Using Supermon 

To load Supermon use a normal load and run. This will load and 
initialise Supermon. It is advisable to exit the monitor at this point (see 
exit command) and new the Basic area. To re-enter Supermon enter 
SYS 8 < press return > in direct mode: this command will always take 
you back to the monitor unless run/stop and restore has been pressed. 



Supermon colours 

Anyone familiar with Supermon 64 will be aware that the colours are 
none too good on an ordinary television (I must buy a real monitor), 
so using the advice Jim gave in an article for those of us who don't 
like the colour combination I changed them! You may not like my 
choice, so I will explain how to change the colours. 

Load Supermon and run it. This will put you into the monitor with 
the colours I set. To change the colours temporarily enter the following 
command: 

. H 97ED 9FFF A9 98 20 D2 FF 

This should give you one or possibly two locations. Change the 98 
to the ASCII code for the colour you require. 

Now you will need to change the other colours. Enter the following 
command: 

.H97ED 9FFF fl9 9E 20 D2 FF 
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This will give you about thirteen locations. Change the 9E (ASCII 
code for yellow) to the colour you require. This will only give 
temporary changes; to make permanent changes you will need to 
make the hunt from the beginning of Basic: 



,h mm 11EF... 



Instructions 



Below is a full list of Supermon 64 instructions. The left-hand column 
gives the command, the middle column contains the syntax, and the 
right-hand column the action. 



Command 

Simple Assembler 



Syntax 

.A C080 LDK Um 



Action 

starts assembly at 
$C000 hex. 



Disassembler 



.D C880 



disassembles from 
$C000 hex onwards 



Printing 
Disassembler 



p ceee C100 



disassembles to 
printer once 
engaged with 
OPEN4,4: 
CMD4:SYS8. 



Fill memory 



F C008 C108 Aft 



fills memory from 
COOO to C100 with 
the hex byte AA. 



Go run 



Hunt memory 



6 C000 



H C080 CUB STAR 



jumps to $C000 hex 
and executes 
program there. 

hunts through 
memory $C000 to 
$C100 hex for the 
ASCII string STAR. 



Load 



.L"filename",08 



loads a program 
from disk into 
memory. 
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Memory display 

Register status 
Save 

Transfer memory 



.M mm C028 



.S"nn"j08, 



displays memory 
from C000 to C020 
hex. 

displays current 
register values. 

jClfliB saves memory from 
C000 to C 100 hex 
onto disk and calls 
it nn. 



.T CM8 C108 C2M 



Exit to Basic 



transfers contents 
of memory in the 
range C000 to C100 
hex to new start 
address of C200 
hex 

return to Basic and 
perform a CLR 
before doing 
anything else 
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2. Protection 



A trick of the trade? 

The word 'protection', when applied to computer programs, often con- 
jures up the idea of an impenetrable defence. However, protection 
is merely a trick of the trade, in other words some fancy routines that 
a programmer has added to his program in order to make it harder 
to unravel and examine or copy it. 

There is still a lot of talk and speculation about pirating, but not much 
action. The software houses would look pretty silly if they tried to sue 
one of their customers who made a one-off copy for a friend. Although 
they should be protecting themselves against large-scale copying and 
selling, perhaps profits don't warrant it. 

Having decided that there is no such thing as a piece of totally pro- 
tected software and that any program is only as well protected as the 
programmer wishes to make it, we can look at various aspects of pro- 
tection relating to the 64. 

I always think of protection as being two distinct areas and label them 
internal and external protection. The terms are very easily explained. 
Internal protection refers to all methods of protection within the main 
program. That is, routines that stop the user from examining, saving 
or abusing the main program in any way after the program has been 
loaded and executed. External protection is any routine used as a loader 
for the main program, and is normally only used for this purpose and 
then discarded, e.g. an auto-run would only be used to load and exe- 
cute a program and then would be of no further use. External protec- 
tion may well be used in more than one way, but is not used once 
all the programs have been loaded and executed. 

Internal protection 

Any protected program will have several layers of protection. If the 
program is tape based then some of the layers will be inside the pro- 
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gram. Probably the best internal protection I have seen has come from 
Terminal and Legend software. There are several points to remember 
when writing internal protection: 

1. The run/stop and restore keys should be disabled or reassigned. 

2. Unwanted I/O facilities should be disabled or reassigned. 

3. The program should be hidden and perhaps scrambled. 

4. On the 64 the ROM could be switched out as could the Kernal (tricky 
though); Valhalla achieves this nicely. 

5. The program will be hard to copy or examine if it is split up. 

6. The screen, character set and the start of RAM can be moved. 

7. More than one of these routines should be used - possibly two or 
three. 

8. A final caution is to reset the 64 or preferably crash it if all of the 
above fail, thus protecting the program by brute force. 

It may well be a good move to purchase one of the advanced books 
on the 64, giving memory maps and descriptions of the chips, if you 
have not already invested in one. This information does not come 
within the scope of my book. However, you will be able to use the 
information in this book on its own. 

To put the above suggestions into action you will need to have a good 
understanding of how they work, so read on. 

Disabling run/stop & restore 

Much has been written about disabling these keys on the 64, but it 
will not hurt to recap on the information. The 'key' to the run/stop 
and restore keys on the 64 is in locations 808 and 809 decimal, $0328 
and $0329 hex. This is the Kernal stop routine vector. 

The contents of these locations need to be altered to disable one or 
both the these keys. Try entering the following in direct mode: 

PR I NTPEEK (8«8), PEEK C 889 )< return > 
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The result should be 237 and 246, unless you have already been med- 
dling with these locations. The meaning of these numbers is simply 
a jump to a Kernal routine that checks for the stop key being pressed. 
The routine when intialised sits at location 63213 dec. $F6ED hex. 

The stop key and the stop and restore keys can be disabled from Basic 
with a simple poke, but this produces complications, as we will see. 
First, let's experiment a little by loading a program that is written in 
Basic and then entering the following in direct mode: 

POKE 888, 251 < return > 

Now list your Basic program and try to stop the listing by pressing 
run/stop. It worked? Good, now list the program again and press both 
run/stop and restore keys. Not so good, the listing stopped and the 
run/stop key is no longer disabled. 

One more experiment: enter in direct mode: 

POKE 808, 237 < return > 

to reset the stop key. Then enter, again in direct mode: 

POKE 808, 225 < return > 

Try pressing the run/stop and restore keys together, and hey presto! 
it worked. However, if you list your Basic program you will get a weird 
display on the screen. Don't worry, the program is still there but the 
listing is corrupted. In fact the program will still run: try it. Perhaps 
that is worth remembering. 

What our experiments have shown is that these two methods are not 
very clean and a little less than perfect. What we actually need to do 
is to change the vector to point at a routine of our own, so that we 
can disable the run/stop and restore keys or set them up to do our 
own bidding. 

Below are two assembly listings which will do this. They can be located 
in any available memory and may be overwritten if they are no longer 
required. This would stop anyone working out how you changed the 
vector. Of course you may also use the knowledge to improve upon 
it or write your own routines, which is the whole idea. The routines 
are given as disassembly listings, and there is also a memory dump 
which is easier to enter using your by now working copy of Supermon! 
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Disable 1 

This first routine will reassign the run/stop and restore keys so as to 
disable them. An explanation of the routine is hardly needed, but brie- 
fly, the first instruction sets the interrupts; the second instruction loads 
the new high byte for the stop vector; the third instruction stores the 
new high byte in the high byte of the stop vector; the fourth instruc- 
tion loads the low byte of the new stop vector; and the fifth instruc- 
tion stores it in the low byte of the stop vector. 

Once this part of the routine has been called, any time the run/stop 
key is pressed Disable 1 points to a new routine which starts at loca- 
tion 4109 decimal $100D hex. This part of the routine simply places 
the value to disable the run/stop into the accumulator and returns. 

The run/stop and restore keys are now disabled. The first part of the 
Disable 1 routine is used to point to the routine at $100D hex, but the 
second part can be set to do just about anything! 



PC SR AC XR 


YR SP 


. 10008 30 00 00 


00 F6 


1000 78 


SEI 


1001 A9 0D 


LDA #*0D 


1003 8D 28 03 


STA *032B 


1006 A9 10 


LDA tt*10 


1008 BD 29 03 


STA *0329 


100B 58 


CLI 


100C 60 


RTS 


100D A5 91 


LDA *91 


100F 60 


RTS 



■ 1000 78 A9 0D 8D 28 03 A9 10 
, : 1008 8D 29 03 58 60 A5 91 60 
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Disable 2 

Only the second part of this routine need be explained, from location 
4109 decimal $100D hex, as the first part is identical to Disable 1 . With 
this routine any press of the run/stop key will point to our new rou- 
tine starting at $100D. A jump is then made to location $FCE2 which 
is the entry point for the reset routine and will reset the 64. 

Although this looks quite good and seems to be effective, there are 
drawbacks. After the 64 has been reset with a call to $FCE2, any Bas- 
ic program in RAM has the first two pointers removed, but the rest 
of the program is still there and can be recovered. Secondly, if the 
program in memory is in machine code then the whole program is still 
there intact and can be got at with a good machine language monitor 
and enough knowledge. 



B* 

PC SR AC XR YR SP 
. ; 0008 30 00 00 00 F6 

1000 78 SEI 

1001 A9 0D LDA #*0D 
1003 8D 28 03 ST A *0328 
1006 A9 10 LDA #*10 
1008 80 29 03 STA *0329 
100B 58 CLI 

100C 60 RT8 

100D 20 E2 FC JSR *FCE2 



■ 1000 78 A9 0D 80 28 03 A9 18 
i 1008 8D 29 83 58 60 20 E2 FC 
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Disable 3 

This routine has the edge on the above two for internal protection. 
It does not actually stop the program at any point or lock the run/stop 
and restore keys. In essence it re-runs the program if the run/stop key 
is pressed. For our purposes it has been set up to re-run a Basic pro- 
gram, but could easily be altered to point to the beginning of a machine 
code program or indeed to point to some other position of any program. 

Again the first part of the routine is the same as the first two routines. 
The second part at location $100D executes a JSR to $A65E, which 
is the entry postion for the CLR instruction. The next instruction is 
a JSR to $A68E, which is the entry point for the back-up text pointer 
routine, and the last instruction executes a J MP to location $A7AE, 
which causes the program in memory to re-run. This should keep a 
great number of people busy for a long time. 

B* 

PC SR AC XR YR SP 
. ; 0008 30 00 00 00 F6 

1000 78 BE I 

1001 A9 0D LDA #*0D 
1003 8D 28 03 ST A *032B 
1006 A9 10 LDA #*10 
1008 BD 29 03 ST A *0329 
100B 58 CLI 

100C 60 RTS 

1000 20 SE A6 JSR *A65E 

1010 20 BE A6 JSR *A68E 

1013 4C AE A7 JMP *A7AE 



B* 

PC SR AC XR YR SP 
. I 0008 30 00 00 00 F6 



.11000 78 A9 0D 8D 28 03 A9 10 
.5 1008 8D 29 03 58 60 20 5E A6 
. tl010 20 BE A6 4C AE A7 00 00 



35 



Other vectors 

At this point it is only fair to mention that there are many other things 
that it may be necessary to take into account when protecting a pro- 
gram internally. I will attempt to cover as many as possible, but you 
must remember that the only sure method of protection is to blow 
up the 64; anything that falls short of this is likely to be tampered with 
eventually. 

If you happen to have an adequate copy of the 64's memory map then 
you may have noticed a number of vectors from location 768 to 819 
decimal; most of these can be altered so that programs can't be listed, 
saved or loaded. The error messages can be altered or disabled as can 
the warm start vector, the open and close vector - in fact all the vec- 
tors can be disabled or altered. How they are altered and in what way 
depends very much upon your individual needs. 

The routines given above outline one way of disabling or resetting these 
functions, and I advise that a similar method is used. However, most 
of these vectors and links can be altered from Basic and in order to 
give you a taste of what is possible I have included here a list of the 
pokes and what they do to include in your programs and experiment 
with. 

To disable the 'list' command is very easy. Simply enter POKE 775,200, 
and this will prevent any prying eyes from looking at your listing. To 
return to normal enter POKE 775,167. 

To disrupt the load and save commands is fairly easy; the two pokes 
given simply swap commands: POKE 816,237:POKE 817,245:POKE 
818,165:POKE 81 9,244 < return > . Any load or save command will now 
produce the opposite. To disable the error messages enter POKE 
768,226: POKE 769,252 < return > . This will cause any error encoun- 
tered to simply reset the 64. You may wish to alter it to point to some 
other routine in ROM or a routine of your own. Although this is fairly 
simple, it may be important to change the load and save commands. 
If this is so it would be better practice to set the 64 to crash on any 
I/O operations. Resetting location one on an I/O operation would 
achieve this nicely. Don't forget the open and close command vec- 
tors and the I/O links. 
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Moving Basic 

Although this is not in itself a protective measure, it can be added to 
aid you in your attempts to fool, confuse and generally beat potential 
pirates (don't get paranoid, though!). 

When the 64 goes through its power up routines the start of Basic 
RAM is normally at 2048 decimal $0800 hex. This can easily be altered 
by changing locations 43 and 44 decimal (start of Basic pointer). By 
changing the contents of location 44 decimal the page that Basic starts 
at can be altered and by changing the contents of location 43 the num- 
ber of bytes from the top of the page can be altered. 

At power up location 44 contains 8 and location 43 contains 1 . This 
points to location 2049 decimal, although in reality Basic starts at lo- 
cation 2048. The first position of the start of Basic must contain a zero 
or very strange things happen. Every 1 added to location 44 moves 
Basic by one page and every 1 added to location 43 adds 1 byte to 
the start of Basic. To set the start of Basic to 2304 decimal (up one 
page) enter the following: 

POKE 2304 , « : POKE 44 , 9 < return > 

This not only moves the start of Basic but also leaves some room for 
machine code routines from 2049 to 2303. 

To re-cap, so far we have covered some of the possibilities for inter- 
nal protection. They include disabling and resetting the run/stop and 
restore keys; locating and changing other vectors and links; and moving 
Basic. Once you have mastered the above you will begin to see how 
powerful protection can be. There is much more, however, so read on. 



Scrambling programs 

It is possible to save programs in a scrambled form and use the same 
routine to unscramble them. This is very useful because it is difficult 
to unscramble the program unless you know how it was scrambled 
in the first place. 

Scrambling programs is almost but not quite as simple as scrambling 
eggs. The idea is very simple, but effective. The key is the exclusive 
or (EOR) instruction. Using this command different bytes of memory 
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may be scrambled. The magic comes when you use the EOR instruc- 
tion on the same part of memory a second time: it restores it to its 
original state. 

The power of this is fairly obvious: you will be able to make your pro- 
grams meaningless until they go through the scrambling routine a se- 
cond time. The way I use the routine is to scramble the programs and 
save them, then have the same routine unscramble them when they 
are loaded' and before any attempt to run them is made, since they 
will not work until they are put through the routine a second time. 



Warnings 

There a few things to remember before using this method. The pro- 
gram you wish to scramble should be EOR'd with a stable part of 
memory (in the example, $A000 hex on) like the ROM. It is no good 
if the part of memory used is unstable. 

Secondly, the first routine given below is a simple version of the two 
pass scrambler and only deals with one page of memory (256 bytes). 
It is fairly easy to make it do more, but first you should check the size 
of the program you are attempting to scramble carefully. Then see 
the second routine below. 

The first routine scrambles a page of memory from 21 12 decimal $0840 
hex. The routine starts at 49152 decimal $C000 hex and is called by 
SYS49152. The best way to get to grips with it is to experiment. Load 
a program that uses normal memory and execute the routine. Try list- 
ing the program, which should be garbage now, but don't panic! Ex- 
ecute the scramble routine again and list the now restored program! 



B* 

PC SR AC XR YR SP 
. j 0008 30 00 00 00 F6 

C000 A2 00 LDX #*00 

C002 BD 40 08 LDA *0B40,X 

C005 9D 00 A0 EOR *A000,X 

C008 9D 40 08 STA *0840,X 

C00B E8 I NX 

C00C D0 F4 BNE *C002 

C00E 60 RTS 
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i caeca A2 oe bd 40 08 sd 00 ao 

, sC00B 9D 40 08 E8 D0 F4 60 00 



To extend the number of pages that are scrambled you will need to 
add some more instructions. For instance, to scramble four pages start- 
ing from 2048 decimal $0800 hex the routine would look like this: 



B* 



PC SR AC XR YR SP 
, ; 0008 30 00 00 00 F6 



C000 


A9 


A0 


LDA 


**A0 


C002 


85 


FC 


8TA 


*FC 


C004 


A9 


00 


LDA 


#400 


C006 


85 


FB 


STA 


*FB 


C008 


A9 


08 


LDA 


#*0B 


CO0A 


85 


FE 


8TA 


*FE 


C00C 


A9 


00 


LDA 


**00 


C00E 


85 


FE 


STA 


*FE 


C010 


A0 


00 


LDY 


#*00 


C012 


Bl 


FD 


LDA 


(*FD) ,Y 


C014 


51 


FB 


EOR 


<*FB) ,Y 


C016 


91 


FD 


STA 


(*FD) ,Y 


C018 


C8 




I NY 




C019 


DO 


F7 


BNE 


*C012 


C01B 


E6 


FC 


INC 


*FC 


C01D 


E6 


FE 


INC 


*FE 


COIF 


A5 


FC 


LDA 


*FC 


C021 


C9 


A4 


CMP 


#*A4 


C023 


DO 


EB 


BNE 


*C010 


C025 


60 




RTS 





■C000 A9 A0 85 FC A9 00 B5 FB 
>C0O8 A9 08 85 FE A9 00 85 FE 
IC010 A0 00 Bl FD 51 FB 91 FD 
IC01B CB DO F7 E6 FC E6 FE AS 
•C020 FC C9 A4 DO EB 60 00 00 
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This is slightly different from the first scramble routine in that it actu- 
ally uses four zero page locations to store the current ROM and RAM 
bytes, the Y register is used as an offset and the program continues 
until the check $C021 is true and four pages of RAM have been scram- 
bled. This program must be used again to restore the program. 

Finally, here is a third scramble routine. In essence it is the same as 
the above except that it uses $FF hex to 'exclusive or' the program 
and it is not necessary to use the ROM. It is set to go through the 
normal RAM from $0800 hex to $9FFF hex. You may alter this if you 
wish, by altering the value in the CMP instruction. 



B* 

PC SR AC XR YR SP 
, ;0008 30 00 00 00 F6 



C000 


A9 


08 


LDA 


**08 


C002 


85 


FC 


STA 


»FC 


C004 


A9 


00 


LDA 


»*00 


C006 


85 


FB 


STA 


*FB 


C008 


A0 


00 


LDY 


tt*00 


C00A 


Bl 


FB 


LDA 


<*FB> ,Y 


C00C 


49 


FF 


EOR 


#*FF 


C00E 


91 


FB 


STA 


<*FB> ,Y 


C010 


C8 




I NY 




C011 


D0 


F7 


BNE 


*C00A 


C013 


E6 


FC 


INC 


*FC 


C01S 


E6 


FE 


INC 


*FE 


C017 


A5 


FC 


LDA 


*FC 


C019 


C9 


A0 


CMP 


tt*A0 


C01B 


DO 


EB 


BNE 


*C008 


C01D 


60 




RTS 





. I C000 A9 08 85 FC A9 00 85 FB 

. IC008 A0 00 Bl FB 49 FF 91 FB 

. IC010 C8 D0 F7 E6 FC E6 FE A5 

. IC01B FC C9 A0 D0 EB 60 00 00 
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In some cases it may be necessary to replace the first three bytes of 
RAM by hand (locations 2048 ,2049 and 2050), so check these before 
you scramble the program. 

These routines are called with a SYS 491 52. 



Screen and character set 

It is also possible to have more than one screen and character set on 
the 64. This is included here because it can aid protection, though it 
is not any protection on its own, as is the case with many of these 
routines. The keys to moving the screen are the screen memory pointer 
at location 648 decimal $0288 hex and location 56576 decimal $DD00 
hex which switches banks. 

At power up the content of location 648 is 4, which points to 1024 
(4 x 256). By altering the contents of this location we can move the 
screen. Try poking a higher value into 648 - it's messy - so we need 
to alter some other things in order to set up our new screen. 

In order to move the screen it is necessary to make sure that the VIC 
chip can access all the information it needs. This means changing the 
screen pointer, switching banks, switching character sets and ensur- 
ing that the VIC chip is looking at the right part of memory. 

To show how to do this, there is a Basic program which places the 
screen at 50176 decimal, the character set at 53248 decimal, and selects 
bank 3, which looks at memory from 491 52 decimal $C000 hex to 65535 
decimal $FFFF hex. 



10 POKE 56333, 127s REM *** SET INTERRUPTS *** 

20 POKE 1,51 i REM *** SWITCH IN CHARACTER GENERATOR 

ROM *** 
30 FOR I -8 TO 4095: REM *** LOOP TO *** 
40 POKE 53248+ I, PEEK (53248+ I): REM *** MOVE COMPLET 

E CHARACTER SET *** 

50 NEXT Is REM *** END OF LOOP *** 

60 POKE 1,55s REM *** SWITCH OUT CHARACTER GENERATOR 

ROM *»* 
70 POKE 56333, 129s REM *** RESET INTERRUPTS *** 
80 POKE 648, 196s REM *** SET POINTER FOR SCREEN *** 
90 POKE 56576,4s REM *** SELECT NEW BANK *** 
100 POKE53272,21sREM: ENSURE VIC CHIP KNOWS WERE T 

O LOOK 
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110 PRINT" NEW SCREEN READY": REM *** CLEA 

R SCREEN AND DISPLAY MESSASE **# 
120 END 

READY. 

The program is documented with REM statements, but briefly: the 
interrupts are set; the character generator ROM is switched in; the 
character set is read in; the character generator ROM switched out; 
the interrupts are reset. So far this is fairly common stuff, but line 80 
resets the screen pointer, and the next poke switches banks. Finally 
the VIC chip is set to ensure that it can see the screen and the charac- 
ter set. 

To place the screen elsewhere in memory you will need to change the 
screen pointer at location 648 decimal, the bank selection at location 
56576 decimal and the pointer to the character set 53272 decimal. You 
may also need to place the character set elsewhere in memory. Good 
luck with your calculating! It is worth mentioning that the colour 
memory on the 64 is not movable, so that's one less headache. 



A faster version! 

If you have just entered and tried the above Basic program and are 
at this moment cursing me and kicking your 64 because it doesn't seem 
to be doing anything, my apologies. The routine does work, but takes 
an awful long time to transfer the complete character set. Here's the 
same thing in machine code with a memory dump for those of you 
in a hurry. It is incredibly quick and does the same thing as the Basic 
program. 



B* 

PC SR AC XR YR SP 
. ;B00S Bl 27 01 C4 F6 



1000 


78 




SEI 




1001 


A9 


33 


LDA 


#*33 


1003 


85 


01 


STA 


*01 


1005 


A9 


DO 


LDA 


#*D0 


1007 


85 


FC 


STA 


*FC 


1009 


A9 


00 


LDA 


#*00 


100B 


85 


FB 


STA 


*FB 


100D 


A0 


00 


LDY 


#*00 


100F 


Bl 


FB 


LDA 


<*FB> ,Y 


1011 


91 


FB 


STA 


<*FB> ,Y 


1013 


C8 




I NY 
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1014 D0 
1016 E6 
1018 AS 
101A C9 
101C D0 
101E A9 
1020 85 

1022 58 

1023 A9 
1025 8D 
1028 A9 
102A 80 
102D A9 
102F 8D 
1032 20 
1035 60 



F9 
FC 
FC 
E0 
EF 
37 
01 

C4 

88 02 

04 

00 DD 
15 

18 D0 
44 E5 



BNE 

INC 

LDA 

CMP 

BNE 

LDA 

STA 

CLI 

LDA 

STA 

LDA 

STA 

LDA 

STA 

JSR 

RTS 



*100F 

*FC 

*FC 

#*E0 

*100D 

#*37 

*01 

#*C4 

*0288 

tt*04 

*DD00 

#*15 

*D01B 

*E544 



B* 

PC SR AC XR YR SP 
. ;0008 Bl 27 01 C4 F6 



: 1000 78 
, : 1008 FC 

:1010 FB 
.11018 A5 
. s 1020 85 
. S1028 A9 
. :1030 18 



A9 33 85 
A9 00 85 
91 FB CB 
FC C9 E0 
01 58 A9 
04 8D 00 
D0 20 44 



01 A9 D0 85 
FB A0 00 Bl 
D0 F9 E6 FC 
D0 EF A9 37 
C4 8D 88 02 
DD A9 15 8D 
E5 60 00 00 



This routine uses the same technique as the scramble routine. The 
position it occupies can of course be easily changed to please you 
The assembly listing is provided and will explain what it is doing. A 
final point to mention is that the character set has not been re-defined, 
but just swapped; anyone wishing to add user-defined characters must 
add their own. 

Other forms of protection 

All other forms of protection are tricks that are either external protec- 
tion or a mixture of internal and external. The first point to make is 
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that any program loaded from tape uses the cassette buffer and places 
the name.of the program and the start and end addresses of the pro- 
gram in the buffer. Address 828 decimal $033C hex holds the secon- 
dary address for the load. In other words, whether it is a LOAD"" or 
LOAD"",1,1 or LOAD"", 1,3. The first is an ordinary load; the second 
loads back into the memory it was saved from and the third signifies 
an auto-run! 

The start and end addresses of programs are held in addresses 829 
to 832 decimal. 829 holds the low byte and 830 the high byte of the 
start of the program, 831 holds the low byte and 832 the high byte 
of the end of the program. So it is sometimes possible to calculate 
where in memory a program is using these locations. The filename 
is also stored in the locations after 832 decimal. Experiment with this 
and see what you get? 

Protected software 

Most commercial software has some protection. For some reason a 
number of games writers still use loaders for the 64. Usually these load- 
ers set up some parts of the 64 and load the main program. The load- 
ers often look like the sample below (for tape): 

10 C=C*1=IF C=2 THEN SVS 49152 

28 LOAD"", 1,1 

This is a simple example, but we can learn something from it. In line 
10 the variable 'C is not initialised; on the 64 it is assumed to be zero 
if there is no other reference to it. So on line 10 'C is set to one and 
a check is made for C having the value of two. On the first pass it 
has a value of one and line 20 then loads the next program on the 
tape into the memory it came from. 

This of course applies only to machine code programs. If the variable 
'C was not used and we had a loader like: 

10 LOAD" ",1,1 

20 SVS 49152 

it would never be called as line 10 would be repeated eternally! This 
is because after a load from a program a run is performed and the 
circle begins. This kind of loader can also apply to programs from disk, 
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but is normally only used to load more than one program from disk. 
An example might look like this: 

10 0=0+1= IF C=3 THEN SVS49152 

20 IF C = 2 THEN L0AD"file 2", 8 

38 L0AD"file 1",8 

This will load two programs into the 64 from disk and call one of 
them. It is always worth paying a lot of attention to loaders. They 
are often used to protect things from prying eyes as well as set up 
sprites and character sets. 

It is interesting to note that any 'awkward' program could usefully 
be explored by the command OPEN1 for tape, which will find the 
header and stop. If there is a routine in the header it will then have 
been loaded and will probably be in memory somewhere above or 
below the filename (tape buffer). Have a look at the tape buffer to 
discover if anything has loaded or have a look around location $0351 
hex or $02A5 onwards. 

Auto-run 

A complete auto-run does not come within the scope of this book, 
but we can still discuss it in detail. The idea is to have a program loaded 
into the 64 and on completion of the load execute the program. The 
secret is in how it is saved. One very effective way of doing this is 
to save the loader and the 'run' in the header. To do this you will need 
to write a short program that actually saves a piece of code in the 
header and then saves the main program. The save and load may not 
be done in the usual way and will take some practice before you get 
it perfect. It is a good idea to have a look at an already existing auto- 
run, so I will include a limited auto-run and some other techniques 
to get you started. First, it is possible to manipulate a program from 
tape or disk using the keyboard buffer which is located from 631 
decimal $0277 hex to 640 decimal $0280 hex. This gives you ten 
locations, and although it is possible to extend the keyboard buffer 
it is not always advisable. 

Any characters stored in the keyboard buffer remain there until the 
program halts unless they are overwritten or the number exceeds the 
limit of the buffer. Therefore commands can be placed in the keyboard 
buffer and left there to execute when the program stops. You could 
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also force a program to stop and execute commands in the buffer and 
then jump back to the program. 

It is equally easy to use the buffer from Basic or machine code. You 
should always remember that location 198 decimal $C6 hex, which 
is the pointer for the number of characters in the buffer, should be 
written to. Let's have a look at a small example: 

18 POKE 631,131 = POKE 198,1 

28 END 

This will put 1 into the buffer counter and the token for SHIFT/RUN 
into the first location of the keyboard buffer and will load and run the 
next program on tape. It is also possible to put most other commands 
into the buffer (though not all at once) and have them execute when 
the program stops. 

The ASCII codes for the commands can be calculated from the tables 
in your manual. If we wanted to hide the fact that anything was 
happening, the colours the commands were printed in could be set 
to the background colour, although messages would still have to be 
visible. 

Each Basic command has a token, and this may be placed in the buffer 
rather than the full command (e.g. L SHIFT instead of LOAD). In 
fact each command has a single number as a token. This is harder 
to calculate but may be gleaned by looking at the keyword table $A09E 
to A19D hex. This will allow you to place more commands into the 
buffer. 



A limited auto-run 

Now on to the auto-run. I have placed it from location $C000 to $C0E2 
hex. This may not suit your needs. Remember to change the jumps 
and storage if you relocate the routine. 

PC SR AC XR YR SP 
. ; 0008 30 00 00 00 F6 

C000 AS 2B LDA *2B 

C002 BD D9 C0 STA *C0D9 

C005 A5 2C LDA *2C 

C007 BD DA C0 STA *C0DA 
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C00A 
C00C 
BB8I 

can 

C013 
C015 

coia 
caiA 

CB1D 

C01F 

C022 

C024 

C026 

C02S 

C02A 

C02C 

C02F 

C032 

C033 

C035 

C038 

C03A 

C03C 

C03F 

C042 

C044 

C047 

C049 

C04C 

C04E 

C051 

C053 

C055 

C05B 

C05A 

C05D 

C05F 

C062 

C064 

C067 

C069 

C06B 

C0&D 

C06F 

C071 

C074 

C076 

C079 

C07B 

C07D 

C07F 



A9 A5 
85 2B 
SD 02 03 
A9 02 
85 2C 
8D 03 03 
A5 2D 
8D DB C0 
A5 2E 
8D DC C0 
A9 03 
85 2E 
A9 04 
85 2D 
A2 55 
BD 83 C0 
9D AS 02 
CA 

10 F7 
20 D4 El 
A9 03 
85 B9 
20 59 El 
AD D9 C0 
85 2B 
AD DA C0 
85 2C 
AD DB CO 
85 2D 
AD DC CO 
85 2E 
A9 ED 
8D 32 03 
A9 F5 
8D 33 03 
A9 83 
8D 02 03 
A9 A4 
BD 03 03 
A9 00 
85 9D 
A9 01 
A2 01 
A0 01 
20 BA FF 
A9 00 
20 BD FF 
A6 2D 
A4 2E 
A9 2B 
20 DB FF 



LDA 

STA 

STA 

LDA 

STA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDX 

LDA 

STA 

DEX 

BPL 

JSR 

LDA 

STA 

JSR 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

LDX 

LDY 

JSR 

LDA 

JSR 

LDX 

LDY 

LDA 

JSR 



#*A5 

*2B 

*0302 

#*02 

*2C 

♦0303 

*2D 

*C0DB 

*2E 

*C0DC 

#*03 

*2E 

#*04 

*2D 

#*55 

*C0B3,X 

*02A5,X 



*C02C 

*E1D4 

#*03 

*B9 

*E159 

*C0D9 

*2B 

*C0DA 

*2C 

*C0DB 

*2D 

*C0DC 

*2E 

#*ED 

40332 

#*F5 

40333 

#*B3 

*0302 

#*A4 

♦0303 

«*0B 

*9D 

#*01 

**01 

«*01 

*FFBA 

#*00 

*FFBD 

*2D 

*2E 

**2B 

*FFD8 
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C0B2 


60 






RTS 




C083 


A9 


83 




LDA 


#*83 


C0B5 


8D 


02 


03 


STA 


S0302 


C088 


A9 


A4 




LDA 


#*A4 


C08A 


8D 


03 


03 


STA 


*0303 


C08D 


A9 


00 




LDA 


**00 


C08F 


85 


9D 




STA 


*9D 


C091 


20 


D5 


FF 


JSR 


*FFD5 


C094 


A9 


01 




LDA 


4**01 


C096 


AA 






TAX 




C097 


A8 






TAY 




C098 


20 


BA 


FF 


JSR 


*FFBA 


C09B 


A9 


00 




LDA 


tt*00 


C09D 


A2 


00 




LDX 


#*00 


C09F 


A0 


00 




LDY 


#*00 


C0A1 


20 


BD 


FF 


JSR 


*FFBD 


C0A4 


A9 


FB 




LDA 


#*FB 


C0A6 


8D 


28 


03 


STA 


*0328 


C0A9 


A9 


F6 




LDA 


#*F6 


C0AB 


8D 


29 


03 


STA 


*0329 


C0AE 


A9 


02 




LDA 


#*02 


C0B0 


8D 


20 


00 


STA 


*O020 


C0B3 


A9 


00 




LDA 


«*00 


C0B5 


20 


D5 


FF 


JSR 


*FFD5 


C0B8 


86 


2D 




STX 


*2D 


C0BA 


86 


2F 




STX 


*2F 


C0BC 


86 


31 




STX 


*31 


C0BE 


84 


2E 




STY 


*2E 


C0C0 


84 


30 




STY 


*30 


C0C2 


84 


32 




STY 


*32 


C0C4 


A9 


F6 




LDA 


#*F6 


C0C6 


8D 


29 


03 


STA 


♦0329 


C0C9 


A9 


ED 




LDA 


#*ED 


C0CB 


8D 


28 


03 


STA 


40328 


C0CE 


A9 


00 




LDA 


«*00 


C0D0 


20 


5E 


A6 


JSR 


*A65E 


C0D3 


20 


8E 


A6 


JSR 


*A68E 


C0D6 


4C 


AE 


A7 


J MP 


*A7AE 


C0D9 


00 






BRK 





. : C000 AS 2B 8D D9 C0 AS 2C 8D 

. : C008 DA C0 A9 A5 85 2B 80 02 

. :C010 03 A9 02 85 2C 8D 03 (93 

. SC018 AS 2D 8D DB C0 A5 2E 8D 

. : C020 DC C0 A9 03 85 2E A9 04 

. : C028 85 2D A2 55 BD 83 C0 9D 
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:C030 A5 02 CA 10 F7 20 D4 El 
, :C038 A9 03 85 B9 20 59 El AD 
, • C040 D9 C0 85 2B AD DA C0 85 
, . C048 2C AD DB C0 85 2D AD DC 
, : C050 C0 85 2E A9 ED 8D 32 03 
. : C058 A9 F5 8D 33 03 A9 83 8D 
, ; C060 02 03 A9 A4 8D 03 03 A9 
, :C068 00 85 9D A9 01 A2 01 A0 
. :C070 01 20 BA FF A9 00 20 BD 
. : C078 FF A6 2D A4 2E A9 2B 20 
. e C080 D8 FF 60 A9 83 8D 02 03 
. : C088 A9 A4 8D 03 03 A9 00 85 
. tC090 9D 20 D5 FF A9 01 AA A8 
. i C098 20 BA FF A9 00 A2 00 A0 
. : C0A0 00 20 BD FF A9 FB 8D 28 
. : C0A8 03 A9 F6 8D 29 03 A9 02 
. : C0B0 8D 20 D0 A9 00 20 D5 FF 
. 8C0B8 86 2D 86 2F 86 31 84 2E 
. JC0C0 84 30 84 32 A9 F6 8D 29 
. : C0C8 03 A9 ED 8D 28 03 A9 00 
. : C0D0 20 5E A6 20 8E A6 4C AE 
. t C0D8 A7 00 00 00 00 00 00 00 



The first part of the routine stores the values for the start of Basic 
and the start of Basic variables. It then resets the start of Basic to 
677 decimal $02A5 hex (a good place for machine code). The loop 
from $C02C to $C034 takes the code from $C08A onwards and stores 
it at $02A5 onwards. 

A save is then performed with a name given by the user. This saves 
off the code at $02A5 and the start of Basic and the other pointers 
are restored. The main program is then saved off immediatedly after 
this and the program ends. 

The way to use this routine is by entering the following in direct 
mode: 

SYS 49152"filename" 

This will do the trick for a tape auto-run; the filename is optional. 
When you load the program back the routine from $02A5 is 
executed. It loads the rest of the program and disables the run/stop 
key. At the end of the load a run is executed and the program starts. 
This particular method is just one way of achieving an auto-run and 
may not suit your needs. Try experimenting with the program. 
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One warning when saving a program with this routine: do not try to 
stop it with the run/stop key. Other features could be built into the 
routine like scrambling the program or a routine to reset the machine 
if the run/stop is pressed. A routine to wipe out the auto - run after 
it has done its work may be a good idea. 
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3. Printer, Disk, Tape and Other 
Utilities 

Some of these utilities originated from Germany (author unknown). 
I have updated and revised them, but my thanks for the ideas. 



Hard copy 

This is a hard copy routine. Although it is not a hi-res dump it can 
be quite useful. The routine is placed in zero page around the area 
labelled as the tape input error log ($0100 to $0200 hex). Some reading 
and experimentation will show that this area is also used for other 
things, and any routines should be placed here cautiously. However, 
one advantage of placing routines here is that you don't get an 'out 
of memory' message and have to new the Basic area, as you do with 
routines loaded at $C000 hex, for example. The routine can be loaded 
and executed in program or direct mode and is called with SYS 300. 

It first places the current device number (in this case 4 for printer) into 
$00BA hex and the logical file number into$00B8 hex. The secondary 
address of 4 is placed into location $00B9 hex and the routine then 
branches to the Kernal routine at $FFC0 hex, which opens a file to 
the printer. 

The next instruction opens the channel for output with a branch to 
the Kernal routine at $FFC9. The screen is dumped to the printer by 
using locations $0071 and $0072 hex as a pointer to the start of the 
screen and loading them into the accumulator where they are formatted 
for output. 

A branch to the Kernal routine at $FFD2 hex (output character to 
channel) prints out the contents of the screen one line at a time. This 
continues until the end of the screen is reached and the two Kernal 
routines are used. The first, $FFCC hex, closes all input and output 
channels and the second, $FFC3 hex, closes the logical file. If nothing 
else this routine is a good example of using the Kernal routines on 
the 64, of which more later. 
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B* 



PC SR AC XR YR SP 
• 0(308 72 00 01 21 F6 



012C 

01 2E 

0130 

0132 

0134 

0136 

0138 

013A 

013C 

013E 

0140 

0143 

0145 

0148 

014A 

014C 

014F 

0152 

0154 

0156 

0158 

015A 

015C 

015E 

0160 

0162 

0164 

0166 

0168 

016B 

016C 

01 6E 

0170 

0171 

0172 

0174 

0176 

0178 

017A 

017B 

017D 

017F 

0182 

0185 

0187 



A9 04 
85 BA 
A9 7E 
85 B8 
A9 00 
A0 04 
85 71 

84 72 

85 B7 
85 B9 
20 C0 FF 
A6 B8 
20 C9 FF 
A2 19 
A9 0D 
20 D2 FF 
20 El FF 
F0 2E 
A0 00 
Bl 71 
85 67 
29 3F 
06 67 
24 67 
10 02 
09 80 
70 02 
09 40 
20 D2 FF 
C8 

CO 28 
D0 E6 
98 
18 

65 71 
85 71 
90 02 
E6 72 
CA 

D0 CD 
A9 0D 
20 D2 FF 
20 CC FF 
A2 7E 
4C C3 FF 



LDA 

STA 

LDA 

STA 

LDA 

LDY 

STA 

STY 

STA 

STA 

JSR 

LDX 

JSR 

LDX 

LDA 

JSR 

JSR 

BEQ 

LDY 

LDA 

STA 

AND 

ASL 

BIT 

BPL 

ORA 

BVB 

ORA 

JSR 

I NY 

CPY 

BNE 

TYA 

CLC 

ADC 

STA 

BCC 

INC 

DEX 

BNE 

LDA 

JSR 

JSR 

LDX 

J MP 



#*04 

*BA 

#*7E 

*B8 

#*00 

#*04 

*71 

*72 

*B7 

*B9 

*FFC0 

*BB 

*FFC9 

#*19 

#*0D 

*FFD2 

*FFE1 

*0182 

#*00 

<*71) ,Y 

*67 

#*3F 

*67 

*67 

*0164 

#*80 

*016B 

#*40 

*FFD2 

#*28 
$0156 



*71 
*71 
*017A 
*72 

*014A 

#*0D 

*FFD2 

*FFCC 

#*7E 

*FFC3 
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S012C A9 04 85 BA A9 7E 85 B6 
,10134 A9 00 A0 04 85 71 84 72 
, I013C 85 B7 85 B9 20 C0 FF A6 
, :0144 B8 20 C9 FF A2 19 A9 0D 
, I014C 20 D2 FF 20 El FF F0 2E 
,10154 A0 00 Bl 71 85 67 29 3F 
, S015C 06 67 24 67 10 02 09 80 
.10164 70 02 09 40 20 D2 FF C8 
, I016C C0 28 D0 E6 98 18 65 71 
.10174 85 71 90 02 E6 72 CA D0 
. I017C CD A9 0D 20 D2 FF 20 CC 
.10184 FF A2 7E 4C C3 FF 00 00 



Old for new 



Although there a few routines around that restore a program that has 
been NEWed (excluding Simon's Basic, unless you'll trust it), this one 
is in here as it is written for use at any time. It does not have to be 
in memory before the accidental NEW is entered. It can be loaded and 
called after you have lost the program and will quickly soothe the nerves 
and cure the cursing. 

The routine is again located at $01 2C hex 300 decimal and is called 
with SYS 300. It does not really require a detailed description. It simply 
restores the pointers to the beginning of the program and restores your 
Basic program. Of course the best advice is always to save programs 
under development, making this sort of program obsolete. 



B* 

PC SR AC XR YR SP 
. ;0008 72 00 01 21 F6 

012C A5 2B LDA *2B 

012E A4 2C LDY *2C 

0130 85 22 ST A *22 

0132 84 23 STY *23 

0134 A0 03 LDY #*03 

0136 C8 INY 

0137 Bl 22 LDA <*22) ,Y 

0139 D0 FB BNE *0136 
013B C8 INY 

013C 98 TYA 

013D 18 CLC 

013E 65 22 ADC *22 

0140 A0 00 LDY #*00 
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0142 91 2B STA C*2B> ,Y 

0144 A5 23 LDA *23 

0146 69 00 ADC #*00 

0148 CB I NY 

0149 91 2B STA (*2B),Y 
014B B8 DEY 

014C A2 03 LDX #*03 

014E E6 22 INC *22 

0150 D0 02 BNE $0154 
0152 E6 23 INC *23 
0154 Bl 22 LDA <*22> ,Y 
0156 D0 F4 BNE *014C 

0158 CA DEX 

0159 D0 F3 BNE *014E 
015B A5 22 LDA *22 
015D 69 02 ADC #*02 
015F 85 2D STA *2D 
0161 85 23 STA *23 
0163 69 00 ADC #*00 
0165 85 2E STA *2E 
0167 4C 63 A6 JMP *A663 



,:012C A5 2B A4 2C 85 22 84 23 

, S0134 A0 03 C8 Bl 22 D0 FB C8 

. :013C 98 18 65 22 A0 00 91 2B 

. :0144 A5 23 69 00 C8 91 2B 88 

. :014C A2 03 E6 22 D0 02 E6 23 

■0154 Bl 22 D0 F4 CA D0 F3 A5 

:015C 22 69 02 85 2D 85 23 69 

■0164 00 85 2E 4C 63 A6 00 00 



Some disk routines 



Disk error display 

Any disk errors generated on the 64 have to be collected as they are 
not given, only indicated by an infuriating flashing light. The format 
for doing this usually looks like this: 
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18 0PEN1,8,15:REH OPEN CHANNEL 

28 INPUT#1.A»B$,C.D = REH GET ERROR 

30 PRINT ft;B$;CiD=REM DISPLAY ERROR 

40 CLOSE1 = REM CLOSE FILE 

50 END : REM END OR STOP ROUTINE 

The above will give the error, but it can be awfully annoying to have 
to type this in, usually at the beginning of a program you are working 
on. Below is a routine in machine code that can be loaded and called 
at any time and will display the error. 

The routine sits at $012C hex 300 decimal and will not disturb anything 
else. First the current device number is stored at $B8 hex (current device 
number). The secondary address is stored in location $B9 hex and the 
secondary address is sent after 'send talk' has been called with the 
Kernal routine at $FF96 hex. 

The next two Kernal routines input a byte from the serial port $FFA5 
hex and output character to channel $FFD2 hex. The routine branches 
to collect the next byte until a carriage return is found and a command 
is sent to the serial bus to 'untalk' with $FFAB hex, when the routine 
stops. 



B* 

PC SR AC XR YR BP 

.5 0008 72 00 01 21 F6 

012C A9 0B LDA #*08 

012E SS BA STA *BA 

0130 20 B4 FF JSR 4FFB4 

0133 A9 6F LDA #*6F 

0135 B5 B9 STA *B9 

0137 20 96 FF JSR *FF96 

013A 20 A3 FF JSR *FFAS 

013D 20 D2 FF JSR *FFD2 

0140 C9 0D CMP #*0D 

0142 D0 F6 BNE *013A 

0144 20 AB FF JSR *FFAB 

0147 60 RTS 
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. «B12C A9 08 83 BA 20 B4 FF A9 
.10134 6F 85 B9 2B 96 FF 28 A5 
. I013C FF 20 D2 FF C9 0D DO F6 
.9 0144 20 AB FF 60 00 00 00 00 



This may well be the best place for a list of the 1541 disk commands 
and error messages, and a comprehensive explanation of their 
meaning. An interesting thing about error messages is that they are 
often used to protect programs on disk. A particular error can be 
written on disk with a check in the program to collect and make 
sure it is the correct one. I believe writing a 29 error is currently 
popular. 

Another way of protecting disks (probably the most effective) is to 
damage the disk physically and have the program check that a 
particular track and sector are damaged, and if it is not abort the 
program or wipe the disk clean. 

The other method is to have a security key, as the word processor 
I am using (Paperclip) does. This can be very effective. With 
Paperclip you can remove the key while the word processor is in 
use and the 64 will freeze until the machine is turned off or the key 
re-inserted. This should stop any nosey or clumsy colleagues from 
copying or destroying your work. 



Disk commands 

OPEN 0PEN15,8,15<return> 

Opens a file (15). The device number is set to 8 (disk) 
and a command is sent (15) 

BACKUP PRINT#15,"D<x> = <y>"<return> 

Two drives are required for this operation and all files 
from drive y are copied to drive x. 

DIRECTORY LQAD"*"»8<return> 

This will load the directory of any disk into memory, 
but replaces any program in memory. 

VALIDATE PRINT»15,"v"< return > 

This will validate a disk, but can take some time. It 
will often sort out any corrupt disks! 
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CLOSE CLOSE < device number > < return > 

Closes a file 

HEADER PRINTttl5,"N:<diskname> * <id>"< return > 

This will place a name of up to 16 characters with an 
ID of two characters. It will erase all information on 
the disk and takes approx. 80 seconds. 

RENAME PRINT#15,"R : newname=oldname"<return> 

The new name will replace the old name on the disk 

SCRATCH PRINT#15,"S filename" <return> 

The action here takes the filename out of the directory, 
but does not wipe out the program, as is often 
assumed. Therefore the program can be restored! 

INITIALISE PRINT#15,"I" 

You should not really need this command as the drive 
should do the work for you. But you may need it one 
day. 

That is about it for disk commands. The list is, as I am sure you will 
agree, quite insignificant compared to the Basic 4.0 commands. This 
is why utilities are constantly written for the 64. It has virtually no 
peripheral support - could it be a plot? 



Disk error messages 

Should you get it wrong or make a 'beep' up then you may get a 
flashing light on your drive. Having Collected it with a puzzled brow, 
your brow could well be more puzzled by the error message. We had 
better have a look and try to decipher them. 



0, OK, 00, 00 



01 , files scratched, < n > , 00 



block header not found, 20, T, S 



no errors were 
encountered 

Returns the number of 
files scratched in <n>. 

A block header was not 
found. Either the header 
has been destroyed, an 
illegal sector number was 
encountered or your 64 
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no sync character, 21 , T, S 



data block not present, 22, T, S 



checksum error in data block, 23, T, S 



byte decoding error, 24, T,S 



write verify error, 25, T, S 



write protect on, 26, T, S 



has flipped. In any event 
this spells trouble. 

Either there is no disk 
present (silly!) or the read- 
write head is misaligned. 
At the very worst it could 
indicate a hardware 
failure. 

This message indicates an 
illegal track and/or sector. 

This could be a general 
error on the checksum of 
the data or a problem with 
grounding (who wants to 
be grounded?). 

This may also indicate 
grounding problems or an 
invalid bit pattern in the 
data byte. Don't ask me 
what to do, just keep 
struggling. 

Only generated when the 
written data and the data 
in the DOS memory does 
not match. 

This indicates that a write 
operation has been tried 
while the write protect 
switch is down. In other 
words you have probably 
got a write protect tab on 
your diskette which you 
must remove, or use 
another disk, or write 
down the program on 
paper? N.B. this message 
is not always generated 
by a write protect, which 
is confusing. 
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checksum error in header, 27, T, S 



long data block, 28, T, S 
disk id mismatch, 29, T, S 

general syntax, 30, T, S 



invalid command, 31, T, S 



long line, 32, T, S 



invalid file name, 33, T, S 



no file given, 34, T, S 



invalid dos command, 39, T, S 



record not present, 50, T, S 



Again there maybe 
grounding problems, 
certainly if all three of 
these errors are occuring. 
It may just be a data error 
in the header. 

Caused by a bad diskette 
format or a hardware 
failure! 

The diskette either needs 
initialising or the header 
on the diskette is bad. Try 
causing this error. 

The 1541 cannot make 
sense of the command 
just sent. Either there is an 
illegal number of 
filenames or the patterns 
are illegally used. 

The command you sent 
was completely 
unrecognisable. 

The command you sent 
was too long! 

Pattern matching is in- 
valid in the save or open 
commands 

The filename was omitted 
or a " mark or : was 
omitted. 

An unrecognised com- 
mand was sent 

An INPUT# or GET# 
statement selected a 
record beyond the current 
end of file. This is only an 
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error if you are attempting 
to read a record, not if 
you are positioning to the 
end of the file to write 
new records to an old file. 



overflow in record, 51, T, S 



A PRINT # statement 
was used to write more 
than the allowed number 
of characters to a relative 
file. 



file too large, 52, T, S 



write file open, 60, 00, 00 



file not open, 61, 00, 00 



file not found, 62, 00, 00 



The current record posi- 
tion will result in a disk 
overflow on the next write 
operation to disk. 

The file being used for a 
write is already open after 
being used for a read. 

This message is usually 
generated when the file 
being accessed has not 
been opened. This may 
not generate a message. 

The file being accessed 
does not exist. 



file exists, 63, 00, 00 



There is already a file on 
the diskette with filename 
being used in the 
command. 



file type mismatch, 64, 00, 00 



no block, 65, T, S 



The file being used does 
not match the directory 
entry for this filename. 

This message is 
generated when the 
B - A command finds the 
block to be allocated has 
already been allocated. 
The numbers give the 
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next available track and 
sector. If zero then all 
blocks are in use. 



illegal track and sector, 66, T, S 



illegal sys/track & sector, 67, T, S 



This message is 
generated when an 
attempt has been made to 
access a sector that does 
not exist. The track or 
sector is out of range. 

An attempt has been 
made to access a 
reserved sector. 



no channel, 70, 00, 00 



dir, 71,00, 00 



The channel is not 
available or too many files 
are open. 

The diskette needs 
initialising as the BAM 
does not match the 
internal count. You may 
lose some files with this 
one. 



disk full, 72, 00, 00 



Either the disk is full (all 
blocks used) or the 
number of entries is at its 
limit (152). When the disk 
is nearly full it may be 
difficult to write @ a file. 
In this case scratching the 
file and re-saving should 
work. 



dos mis-match, 73, 00, 00 



This error is generated 
when an attempt is made 
to write to a disk initialised 
on a different DOS. 
However, you may read 
disks initialised by 
different versions of the 
same DOS. 
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drive not ready, 74, 00, 00 The drive will not accept 

commands, commonly 
because the drive door is 
open or there is no 
diskette in the drive. 



Disk directory 

The usual way of viewing the directory is to load it into memory and 
list it This can be a pain as it means that any program currently in 
RAM will be overwritten, and you will have to save it off first and then 
load the directory. After this you will have to load your program back 
into the 64 in order to continue. This can be very time consuming. 

Therefore a routine that allows you to display the directory of the disk 
without loading it into memory is a must. This is exactly what the 
following routine does. 

It is located at our favourite position $012C hex 300 decimal and is 
therefore loadable and usable at any time. The routine is called with 
SYS 300 The routine first sets the parameters and calls the Kernal 
routine to send 'SA'. It then calls the Kernal routine to command the 
serial bus to 'talk' $FFB4. 

The next call is to the Kernal routine to send the secondary address 
$FF96 and the call to $FFA5 calls the routine to input a byte from the 
serial port. The routine to print a line number is used to display the 
directory $BDCD and the routine to output the character to channel 
$FFD2 completes the program until the directory has been displayed 
and the call to $F642 sends an 'untalk' before quitting the program. 

PC SR AC XR YR SP 
.10008 72 00 01 21 F6 

012C A9 24 LDA #*24 

012E 85 FB 8TA *FB 

0130 A9 FB LDA #*FB 

0132 83 BB ST A *BB 

0134 A9 00 LDA #*00 

0136 85 BC STA *BC 

0138 A9 01 LDA #*01 

013A 85 B7 STA *B7 

013C A9 08 LDA #*08 

013E 85 BA STA *BA 
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0140 

0142 

0144 

0147 

0149 

014C 

014E 

0151 

0133 

01S5 

0157 

0159 

015C 

015E 

0160 

0162 

0165 

0167 

0169 

016B 

01 6C 

016E 

0170 

0173 

0175 

017B 

017B 

017D 

01 7F 

0180 

0182 

0185 

0188 

018A 

018D 

018F 

0191 

0194 



A9 60 
85 B9 
20 D5 F3 
AS BA 
20 B4 FF 
A5 B9 
20 96 FF 
A9 00 
85 90 
A0 03 

84 FB 

20 AS FF 

85 FC 
A4 90 
D0 2F 

20 AS FF 
A4 90 
D0 28 
A4 FB 
88 

D0 E9 
A6 FC 
20 CD BD 
A9 20 
20 D2 FF 
20 A5 FF 
A6 90 
D0 12 
AA 

F0 06 
20 D2 FF 
4C 78 01 
A9 0D 
20 D2 FF 
A0 02 
D0 C6 
20 42 F6 
60 



LDA 

STA 

JSR 

LDA 

JSR 

LDA 

JSR 

LDA 

STA 

LDY 

STY 

JSR 

STA 

LDY 

BNE 

JSR 

LDY 

BNE 

LDY 

DEY 

BNE 

LDX 

JSR 

LDA 

JSR 

JSR 

LDX 

BNE 

TAX 

BEQ 

JSR 

JMP 

LDA 

JSR 

LDY 

BNE 

JSR 

RTS 



**60 

*B9 

*F3D5 

*BA 

*FFB4 

*B9 

*FF96 

#*00 

*90 

**03 

*FB 

*FFA5 

*FC 

*90 

♦0191 

*FFA5 

*90 

*0191 

*FB 

*0157 

*FC 

*BDCD 

«*20 

*FFD2 

♦FFA5 

*90 

*0191 

*018B 

*FFD2 

♦0178 

tt*0D 

*FFD2 

#*02 

♦0157 

*F642 



I012C 


A9 


24 


85 


FB 


A9 


FB 


85 


BB 


90134 


A9 


00 


85 


BC 


A9 


01 


85 


B7 


I013C 


A9 


08 


85 


BA 


A9 


60 


85 


B9 


10144 


20 


D5 


F3 


AS 


BA 


20 


B4 


FF 


I014C 


A5 


B9 


20 


96 


FF 


A9 


00 


85 


10154 


90 


A0 


03 


84 


FB 


20 


A5 


FF 


I01SC 


85 


FC 


A4 


90 


D0 


2F 


20 


A5 
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,10164 FF A4 90 D0 28 A4 FB 8B 

I016C D0 E9 A6 FC 20 CD BD A9 

,10174 20 20 D2 FF 20 A5 FF A6 

, I017C 90 D0 12 AA F0 06 20 D2 

.10184 FF 4C 78 01 A9 0D 20 D2 

, I018C FF A0 02 D0 C6 20 42 F6 
.10194 60 00 00 00 00 00 061 00 



Disk directory and auto-load 

This program will display the directory in a different format and only 
a page at a time. Each file is given a letter and may be loaded by 
pressing that letter as long as it is a program and not a sequential or 
relative file. 

The program also mixes Basic with machine code and will be useful 
to explain how to achieve this. This routine was converted from a 
similiar one written for the PET, which has been substantially modified. 

The Basic program should be entered exactly as shown, as the machine 
code is placed directly after the Basic program and will not function 
if any additions or deletions are made. The 64's control characters have 
been replaced by more readable and understandable characters: refer 
to the symbol chart at the beginning of the book for details. 

After entering the Basic program, save it and verify it to make sure 
that you have a correct copy. At this point it is advisable to turn your 
64 on and off again. You will now need to load a monitor to enter 
the machine code. 

If you are using Supermon then load and run it. Use the 'X' command 
to quit the monitor and 'new' the program. Re-enter the monitor with 
SYS8 < return > and enter: M 0D44 0DB4. This is where the code is 
to be entered. Using the memory dump below enter the code careful- 
ly and save it with the following command: 
SAVE"CODE",08,0D44,0DBC, or SAVE"CODE",01,0D44,0DBC for 
tape. 

At this point you have a copy of the Basic program and the code, hope- 
fully both correct. They now need to be merged and saved together. 
To do this, reload the Basic program and afterwards reload the code. 
This can be done by entering Supermon and loading the code. Both 
the programs need to be saved to tape or disk. To do this save the 
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programs with the following: SAVE" < filename > ",08,0801 ,0DBC or 
SAVE" <filename>, 01 ,0801, ODBC for tape. The program can now 
be loaded from Basic in the normal way and will load both Basic and 
machine code programs into the right place. 

This is the time to try the program. Enter run and see what happens. 
You should get a nicely formatted display of the directory with the 
letter for each file on the far right of the screen. If this is so, well done! 
Try loading a program, if this works then you succeeded first time and 
can go to the top of the class. 

If the program does not work and crashes the 64 or does something 
equally odd, you have an error in the code or the Basic program is 
the wrong length. You will have to check both carefully, make the 
changes, and then save the whole thing as described above. 

If you get a Basic error message then the problem may only be an 
error in the Basic program. After correcting it, however, you will need 
to save it in the way described above. Good luck with this one, and 
let me assure you that the results are worth the effort. 

1 REM *** AN EASY WAY TO LOAD THE DIRECTORY AND L. 
OAD A PROSRAM FROM DISK 

2 S0T032 

4 FI*=" 

":FI*=LEFT*<FI*,EE> 

5 X*-MID*(STR*(PEEK<252)*256+PEEK<251) ) ,2) iRETURN 

6 SYS<C)sB0SUB4sZ*<B>-FI*»C"»3399 

7 Q0SUB16 

8 FORB- 1 TOBBl SYS ( C ) : BOSUB4 t Z* < B ) =F I * : I FSTTHENB-BB 
+1S0OTO14 

9 Z*(B)=X*+S2*+Z*<B) 

10 PRINT" "Z*(B);»PRINTTAB<33)"...CON3 "CHR*<VR>" 
COFF:":VR=»VR+i 

11 IFPEEK<D0X22THEN14 

12 B0SUB17iVR=65:S=B+l 

13 BOSUB1& 

14 NEXT:PRINTW*!G0SUB18 

15 B0T043 

16 PRINTRR*W*"DISK NAME COND " Z* (B) DF*SS*DF* l RET 
URN 

17 PR I NT Y* 

IB S0SUB3B:IFFI*=" "ANDB<BBTHENRETURN 

19 IFFI*=»" "THEN43 

20 IFASC <FI*> <650RASC <FI*> > <VR-1 ) THEN18 

21 NN=ASC<FI*> sNN=<NN-64> + 16*(B-l)sRE*=Z*<NN) : RE* 
=MID*(RE*,S,16) 

22 IFMID*<Z*<NN) ,25,3) ="PRB"THEN27 
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23 PRINTOT*"CON3ERRORCOFF3.. CCL3N0T PROGRAM.. SPA 
CE TO CONTINUE" 

24 G0SUB3B:IFFI*<>" "THEN24 

25 IFB<BBTHEN17 

26 PRINTW*«G0T018 

27 P=LEN<RE*)s IFRIGHT* (RE*, 1 > =" "THENRE*=LEFT* <RE 
*,P-l)sG0T027 

28 PR I NT " C CLR 3 LOAD " CHR* < 34 ) RE*CHR* ( 34 ) " , 08 " s PR I NT 
"C4 CD 3 RUN ": CLOSE 1: CLOSE 15 

29 P0KE63 1 , 1 9 8 P0KE632 , 1 3 s P0KE633 , 1 3 8 POKE 1 98 , 3 s END 

30 GETFI*sIFFI*=""THEN30 

31 RETURN 

32 PR I NT " C CLR 3 " s P0KE53272 , 23: C-3396 s 6« 1 s VR-65 : DO= 
214:BB=245«EE»24s0PEN15,8,15 

33 DIMZ*<BB>sOPENl,8,0,"*0"sGOSUB41 

34 DF*=CHR*(13)8 0T*="CHME3C23 CD3 " 8 W**DF*+DF* 

35 RR*-"CCLR3 CON3 CSH D1SK3 AUTO LOADCON3 F 
OR THE CSH CBM3 64 [OFF 3" 

36 Sl*=" "iS2*=" 

37 W*-OT*+"LOAD TYPE < LETTER >... TERMINATE < SPACE 

>" 

38 Y*=OT*+" CONTINUE < SPACE >... LOAD <TYPE LETTER >" 

39 SS*=DF*+"CON3CSH BLOCKS 3 C OFF 3 CON 3 CSH PROGRAM 
TITLE3" 

40 SS*=SS*+"COFF3 CON3CSH TYPECON3 CON3CS 
H LOADCOFF3 8GOT06 

4 1 I NPUT# 1 5 , EN* , EM* s I FEN*- " 00 " THENRETURN 

42 PRINT" CCLR3 CON3CSH D3ISK CSH ERROR 3 C OFF 3 "DF* 
EM* 

43 CLOSE Is CLOSE 15s END 



Using the disassembly given below we can dissect the machine code 
part of the program. The first thing the routine does when called is 
to perform two jumps to other routines in the program. I suppose you 
could say that there are three separate routines here. 

The first jump to $0D9E sets the input device and branches to the in- 
put routine. The rest of the routine collects the directory from the disk 
and stores it at $085B onwards, this is line 4 of the Basic program, 
into Fl$. This is yet another reason to ensure that the Basic program 
is entered exactly as shown, including the REM statement and the 
following comments. 

Now for a look at the Basic program: the first active instruction at line 
2 jumps to line 32. The screen is cleared and the variable 'C set, the 
64 is then put into lower case with POKE 53272,23. Other variables 
are initialised and a file opened to disk. Line 33 is obvious except for 
the OPEN1,8,0"$0", try it, it's interesting! 

66 



At line 40 control jumps to line 6 of our Basic program and our machine 
code routine is called for the first time using the value of (C). Then 
a branch to line 4 collects the value of Fl$ and takes the block count 
for the file from temporary storage in $FB and $FC hex. The variable 
'C is reset 3 higher than its original value and the program branches 
to the routine to display the directory at line 16. 

The file name and block count are collected for each disk entry and 
displayed until it ends or PEEK (DO) is equal to 22. The value of DO 
is 214. This is the current line the cursor is on. So the display stops 
when the cursor has moved 22 lines down the screen. 

A message is printed giving a choice of continuing with the directory 
or loading one of the programs displayed. Lines 28 and 29 in the Basic 
program load and run the program. This is done by clearing the screen 
and printing 'load' and the first quotation mark CHR$(34). The file- 
name is displayed RE$ and the closing quotes printed. The cursor is 
positioned four lines down and 'run' is printed. 

At this point the files to disk are closed. Line 29 places three charac- 
ters in the keyboard buffer: they place the cursor at the home position 
and two carriage returns, one over the load and the second over the 
run. The program is of course loaded and run as long as it is a pro- 
gram entry on the disk. 

B* 

PC SR AC XR YR SP 
.,{30(38 72 BB Bl 21 F& 

BD44 4C 9E BD J MP *BD9E 

BD47 4C 4 A BD J MP *BD4A 

0D4A 2B A4 BD J BR *BDA4 

BD4D A5 FB LDA *FB 

0D4F C9 64 CMP #*64 

BD51 BB 12 BCS *0D65 

BD53 A9 20 LDA #*2B 

0D55 EB XNX 

BDS6 9D 5B B8 BTA *B85B,X 

BD59 A3 FB LDA *FB 

0D3B C9 BA CMP #*BA 

BD5D BB B6 BCS *BD65 

BD5F A9 20 LDA #*2B 

0D61 E8 INX 

BD62 9D 5B BB STA *0B3B,X 

BD65 AB B4 LDY #*B4 

BD67 CB I NY 

BD6B A3 9B LDA *9B 
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0D6A D0 2D BNE *0D99 

0D6C 20 57 Fl JSR *F157 

0D6F C9 22 CMP #*22 

0D71 F0 02 BEQ *0D75 

0D73 DO F2 BNE *0D67 

0D75 CB INY 

0D76 E8 I NX 

0D77 20 57 Fl JSR *F157 

0D7A C9 22 CMP #*22 

0D7C F0 06 BEQ *0D84 

0D7E 9D 5B 0B 8TA *085B,X 

0D81 3B SEC 

0D82 B0 Fl BCS *0D75 

0D84 18 CLC 

0D85 20 57 Fl JSR *F157 

0D88 C9 29 CMP «*29 

0D8A B0 02 BCS *0DBE 

0D8C A9 20 LDA tt*20 

0D8E 9D 5B 08 STA *085B,X 

0D91 E8 INX 

0D92 CB INY 

0D93 C0 20 CPY tt*20 

0D95 F0 02 BEQ *0D99 

0D97 D0 EB BNE *0DB4 

0D99 A9 00 LDA tt*00 

0D9B 85 99 STA *99 

0D9D 60 RT8 

0D9E 20 A4 0D JSR «0DA4 

0DA1 4C 65 0D JMP *0D65 

0DA4 A2 01 LDX «*01 

0DA6 20 0E F2 J8R *F20E 

0DA9 A2 00 LDX «*00 

0DAB 20 57 Fl JSR #F157 

0DAE 20 57 Fl JSR *F157 

0DB1 20 57 Fl JSR *F157 

0DB4 85 FB STA *FB 

0DB6 20 57 Fl JSR *F157 

0DB9 85 FC STA *FC 

0DBB 60 RTS 



. I0D44 4C 9E 0D 4C 4A 0D 20 A4 

. I0D4C OD A5 FB C9 64 B0 12 A9 

. I0D54 20 E8 9D 5B 08 AS FB C9 

. i 0D5C 0A B0 06 A9 20 E8 9D 5B 
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. I0D64 08 A0 04 CS A5 90 D0 20 

. I0D6C 20 57 Fl C9 22 F0 02 D0 

. I0D74 F2 CB E8 20 57 Fl C9 22 

. I0D7C F0 06 9D SB 08 38 B0 Fl 

.10084 IB 20 57 Fl C9 29 B0 02 

. I0D8C A9 20 9D 5B 08 E8 CB C0 

. I0D94 20 F0 02 00 EB A9 00 BS 

. I0D9C 99 60 20 A4 0D 4C 65 0D 

. I0DA4 A2 01 20 0E F2 A2 00 20 

. S0DAC 57 Fl 20 57 Fl 20 57 Fl 

. I0DB4 85 FB 20 57 Fl B5 FC 60 



Tape control 



First, here is a Basic program that gives you control over the tape 
motor. 

10 A = PEEKC1) OR 32=B = PEEK CD AND 16 

28 POKE 192, ft: POKE 1. A 

30 PRINT "[CLR] TAPE MOTOR STOPPED" 

40 IFB <> THEN 60 

50 PRINT "[CD] PRESS STOP ON TAPE" 

60 IF PEEK CI) AND 16 = THEN 60 

70 PRINT "[CD] ALL SWITCHES OFF" 

80 END 

This small program might be better written in machine code as it uses 
the all too sensitive location 1 . The variable 'A' is set up in line 10 and 
used in line 20 to stop the tape motor by placing 'A' in location 1 and 
location 192 (tape motor interlock). Line 30 merely confirms that the 
tape motor has stopped, and line 40 checks to see if the play key is 
pressed. Lastly line 60 waits until all the keys on the tape are off. 

If you intend to write programs that directly control the tape motor 
then it is advisable to become familiar with location 1 and location 192. 
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Tape Search 

This is another Basic program that uses tape control. It simply allows 
you to load your programs quickly by saving them at set points on 
the tape. Tape Search can be useful for saving programs onto tape 
and locating them quickly in order to load them. 

The program actually eliminates a lot of the drudgery from using a 
cassette deck and waiting sleepily while the program is found and then 
loads. As listed here the programs have been given dummy names 
(PROG 1 to PROG 9), and your program names should be inserted 
in these places, giving you a menu of your tape. 

Tape Search should ideally be placed at the beginning of each cas- 
sette used and the program names added to the menu. You could 
have many more than the nine places made available in this program. 

There are several ways of using the program. You could place the pro- 
grams on the tape and then alter the timing within the program to stop 
at the the right place. Alternatively Tape Search could be recorded 
on the cassette and each program added and recorded as you go along. 
This would be a simpler and faster method, as the timing could be 
adjusted simply and quickly to stop the tape at the correct position. 

Tape Search is set up to present a menu of nine programs giving the 
user fast access to the position on the tape of any one of those pro- 
grams. When the program is RUN the menu is displayed on two 
screens. To move between these screens use the F7 (forward) and 
F5 (back) keys. 

To load a program choose the relevant number (1-9). The program 
then checks for the PLAY button on the recorder and if it is depressed 
displays a message and waits for it to be released. Once this has been 
accomplished the program asks for the fast forward button to be 
depressed and searches for the program using the Tl function and the 
user input. 

Once the program has reached the required time it halts, waits for the 
fast forward button to be released, NEW(s) itself, LOAD(s) and RUN(s) 
the program at that particular position on the tape. It is probably best 
to leave about ten cassette digits between programs. 
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Explanation 

A detailed look at the program is probably the best way to explain how 
to use it. 

Line 200 resets two Basic pointers, assuming that other programs may 
have been in memory. You may have to add other statements to reset 
the 64 if you have been using programs which alter important pointers. 

Line 300 sets screen and border colours and prints the title. 

Lines 400 - 1 100 are two screens of instructions for using the program. 

Lines 1200-1300 format the screen headings. 

Lines 1400- 1500 and lines 1900-2000 are the spaces for the titles 
of user programs to be inserted. 

Line 1600 branches to the routine that waits for F7 to be pressed. 

Line 2100 waits for the F7 key (select) or the F5 key (return to start 
of menu) to be pressed. 

Line 2300 returns the program to the start of the memory if the F5 
key is pressed. 

Line 2500 is the input for the number of the program the user wishes 
to access. The number selected is put in the variable J. 

Line 2600 checks that the input was within range, in this case between 
1 and 9. 

Line 2700 jumps to the routine to load the first program if 1 is selected. 

Lines 2800 - 3500 set the variable Q according to the value held in 
J. The number placed in Q is used to determine the positioning of the 
tape. 

Lines 3700 - 3800 both look at memory location 1 , which is the 6510 
I/O port, and bit four, which is the switch cassette sense. Line 3700 
checks to see if any keys on the cassette are depressed. If they are 
it prints a message. Line 3800 waits until the key is released. 



71 



Line 3900 prints a message. 

Line 4000 checks location 1 (bit 4) and waits until a key is pressed on 
the tape. This is checking for any button on the cassette so make sure 
you depress the fast forward. 

Line 4100 prints a message and sets A equal to Tl. 

Line 4200 halts program execution until the statement is true and then 
continues. Therefore by adjusting the values of Q the user may length- 
en or shorten this delay while the tape continues. 

Line 4300 stops the cassette motor with a poke to location 1 (bit 5) 
and a poke to location 192. Both of these locations have to be altered 
to start or stop the tape motor. 

Line 4500 waits for the fast forward key to be released. 

Line 4800 puts five into the count for the keyboard buffer and pokes 
the values for NEW, LOAD and a carriage return into the keyboard 
buffer. These statements come into effect as soon as the program 
finishes. 

Lines 4900 - 5100 are the routine to wait for the F7 key to be pressed. 

If you attempt to alter this program, be sparing with any random ex- 
periments affecting location 1, as any mistakes will probably cause 
your 64 to nod off, and to wake it you will have to power down! 



10(9 REM *** RESET BASIC POINTERS 

200 POKE56,160:POKE52,160:CLR 

300 POKE532B0 , 1 : P0KE532B 1 , 2 i PR I NT " C CLR 3 " SPC < 1 4 > " C 

5 CD3CYEL3TAPE SEARCH" 

400 PRINTSPC(14)"C3 CD "IFOR QUICK" 

S00 PRINTSPC(14)"C3 CD 3 AND EASY ACCESS"iPRINTSPC( 

14) "C3 CD 3 TO YOUR PROGRAMS" 

600 PRINTSPC(14)"C3 CD 3 CON 3 PRESS F7 TO CONTINUE" 

700 SETA* * I F A*< > " C F7 3 " THEN700 

800 PRINT" CCLR3C4 CD3 "SPC ( 10) "SIMPLY PLACE THE": 

PRINTSPC(10)"C3 CD 3 NAMES OF YOUR" 

900 PRINTSPC(10)"C3 CD 3 PROGRAMS IN THE BLANK SPAC 

ES" 

1000 PRINTSPCU0) "C6 CD3CON3PRESS F7 TO CONTINUE" 

1 100 SETA*s IFA*< >" CF73 "THEN1 100 

1200 PRINT"CCLR3SPC(9) "CCYN3MENU" : PRINT" CCD3CYEL3 

#"SPC(4> " PROGRAM " 
1300 PRINT" CWHT3C 12 SH E3"SPC<3) " C 12 SH E3" 

72 



1400 PRINT" C2 CD 3 1 "SPC < 14) "PROG 1":PRINT"C2 CD 3 
2"SPC(14)"PR0G 2" -™ini v* LD1 

1500 PRINT"C2 CD3 3"SPC ( 14) "PROG 3"sPRINT"C2 CD] 
4"SPC<14)"PR0G 4":PRINT"2 CD3 5"SPC< 14) "PROG 5" 
1600 GOSUB4900 6 3 

1700 PRINT"CCLR3"SPCC9) " CCYN3MENU" : PRINT" CCD3CYEL 
3 #"SPC<4) "PROGRAM" lrtL 

1G00 PRINT" CWHT3C 12 BH E3 "SPC<3) »C 12 SH E3" 
1900 PRINT" CCD 3 6"SPCU4)"PR0G 6" «PRINT"CCD3 7-SP 
C(14) "PROG 7" 

2000 PRINT"C2 CD3 B"SPC < 14) "PRQQ 8".PRINT"C2 CD3 
9"SPC<14)"PR0B 9" «f-P"wi l^ luj 

2100 PRINT" C2 CD3 CON3PRESS F7 TO SELECT" -PR 

INT"tCD3 OR F5 TO RETURN TO MENU" 

2200 6ETA* : I FA*< > " C F7 3 " ANDA*< > " C F5 3 " THEN2200 

2300 IFA*="[F53"THEN1200 

2400 REM *** SET Q FOR TIMING 

2500 INPUT-C2 CD3 SELECT # :»5J,PRINT 

2600 IFJ<1ORJ>9THEN1200 

2700 IFJ=1THEN4600 

2800 IFJ=2THENQ=1.5 

2900 IFJ=3THENQ=2.8 

3000 IFJ=4THENQ=3.7 

3100 IFJ=5THENQ=4.5 

3200 IFJ«=6THENQ=6.7 

3300 IFJ-7THENQ-7.6 

3400 IFJ=8THENQ-8.65 

3500 IFJ»9THENQ=12.9 

3600 REM *** SET UP CASSETTE AND GO FORWARD 

3700 IF<PEEKU)AND16)=0THENPRINT"CCLR3C12 CD3C9 C 
R 3 PRESS STOP ON CASSETTE" l9 C 

3800 I F < PEEK < 1 ) AND 1 6 ) -0THEN3800 
3 ^ INT " CCLRKU """a CR3PRESS FAST FORWARD" 

4000 IF(PEEK(1)AND16)=16THEN4000 

4100 PRINT" CCLR3".PRINTSPC<20>"CU CD30K»s PRINT. A 
= TI 

4200 I FABS ( T I -A )< ( Q*360 ) THEN4200 

4300 Z«PEEK Q > i P0KE192 , Z0R32s POKE1 , Z0R32 

4400 PRINT«CCLR3Cil CD3C10 CR3RELEASE FAST FORWAR 

4500 IF<PEEK<1)AMD16)-0THEN4500 

4600 PRINT'^CLR]" 

4700 REM **« NEW PROG AND LOAD PROG 

4800 P0KE19S,5.P0KE631,7B.P0KE632,69.P0KE633 B7.P 
0KE634 ,13i P0KE635 , 1 3 1 . END UKE633 , 87 . P 

4900 PRINT" C3 CD3 C0N3PREBS F7 TO CONTINUE 

5000 BETA* 1 1 FA*< > " C F7 3 " THEN5000 
5100 RETURN 

READY. 
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Word processor 

A short routine that could be built into a word processor. It will work 
as it stands on any Commodore machine. 

The program does not produce a prompt, but waits for any input (max- 
imum of 88 characters). It will carry on inputting and displaying charac- 
ters until a carriage return is executed. This is a simple way to start 
inputting and displaying formatted text on the screen. 

10 OPEN4,0:REM OPEN KEYBOARD AS A DEVICE 

20 PRINTCHR*<147>j!! REM CLEARS SCREEN 

30 DIM A* (100): REM SET UP ARRAY FOR TEXT STORABE 

40 INPUT#4,A*(I) 

50 FOR I = TO 100: REM INPUT LOOP FOR TEXT 

60 PRINT: REM SKIP TO START OF NEXT LINE 

70 IF A*(I) = "" THEN 1=100: REM TEST FOR END OF PR 

INT LOOP 

80 NEXT: REM END OF INPUT LOOP 

90 FOR I = TO 100: REM PRINTING OF TEXT LOOP 

100 IF A* (I) = "" THEN 170:REM TEST FOR END OF PR 

INT LOOP 

110 FOR J = 1 TO LEN(A*m ) :REM LOOP FOR LENSTH OF 

STRING 
120 B* = MID* (A*(I) ,J,1):REM B* = JTH CHARACTER F 
ROM STRING 

130 IF B* = " ! " THEN PRINT: GOTD200 
140 REM DO CARRIAGE RETURN IF EXCLAMATION MARK 
150 PRINT B*;:REM PRINT CHARACTER OF TEXT 
160 NEXT J, I: REM CLOSE LOOPS 
170 CLOSE 4: REM CLOSE KEYBOARD CHANNEL 
180 END 



Sell that 1540 

If you happen still to have a 1540 drive then there is a way to load 
some programs from the 1540 into the 64. This will work with most, 
but not all programs. 

The problem with loading programs from the 1540 into the 64 is the 
screen refresh. The 64 will keep the screen on while it tries to load 
programs from the 1540. This will cause the 1540 to whirr madly and 
not much else. 
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However, if the screen is turned off before loading, saving or verify- 
ing from the 1 540, you will have more success. The 64's screen is turned 
off with POKE 53265,1 1 and on again with POKE 53265,27. This proves 
to be tricky as one has to type blind, so here is a little tip for setting 
up the screen to load, save or verify. 

The screen should look like this: 

POKE 53265,1 1:REM top line of screen 

(leave blank) 

(leave blank) 

LOAD" < prog name >",8: REM load prog 

(leave blank) 

(leave blank) 

(leave blank) 

(leave blank) 

POKE 53265,27: REM bring screen back 

To do this the first statement should be on the top line of the screen. 
DO NOT press return until all the lines have been typed in, instead 
press SHIFT RETURN. Having typed in the last line, press HOME (un- 
shifted) and press RETURN, which will blank the screen. The next 
return should load the program and the last bring the screen back. 



Dumping the screen 

This is a Basic program that will dump the screen to printer. It is set 
up for Commodore printers, but with small alterations should work 
on most. The routine is formatted specifically for the 64's screen. 

10 0PEN6,4,6:PRINT#6,CHR*<1B> :CL0SE18 

20 0PEN4,4:CMD4 

30 FORI=0TO24 

40 FORJ=0TQ39 

50 A=PEEK<1024+I*40+J) 

60 6OSUB200 
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70 PRINTA1*;A2*;A3*; 

80 NEXT 

90 PRINT 

100 NEXT 

110 PRINT#4:CI_0SE4 

120 END 

200 Al*="":A2*=""sA3*="" 

210 IFA1>127THENA1*=CHR*(18)!A3=CHR*(146):A=A-128: 

RETURN 

220 I FA< 32THENA2*=CHR* < A+64 ) : RETURN 

230 I F A >3 1 ANDA< 64THENA2*=CHR* < A ) : RETURN 

240 I FA >63ANDA< 96THENA2*=CHR* ( A+ 1 28 ) : RETURN 

250 A2*=CHR*< A+64)s RETURN 



More memory 

If you should feel cheated by the amount of RAM that is actually avail- 
able when you switch the 64 on (see power up screen), study the fol- 
lowing short routine: 

7000 LDA $01 

7002 AND tt*FE 

7004 STA $01 

7006 RTS 

This will give you another 8K of usable memory (from $A000 to BFFF 
hex) but be warned that this can only be done in machine code. At- 
tempts to use a Basic program to do this will only crash the 64. 

To return the 64 to the normal configuration use the following routine: 

70A0 LDA $01 

70A2 QRA #$01 

70A4 STA $01 

70A6 RTS 
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Merging and appending programs 



Merge 

This is a tricky little routine that will merge two Basic programs from 
tape. The technique was first outlined by Jim Butterfield. 

First, save the lines to be merged onto tape with: 

0PEN1, 1,1, "FILENAME" = CMD1 = LIST < return > 

When this operation has finished, enter: 

PRINT#1 = CL0SE1< return > 

To merge the program you have just saved with the program in memory 
rewind the tape (of course). Now enter: 

P0KE19,1 = 0PEN1< return > 

When the ready message appears, clear the screen (shift and 
clr/home). Press the cursor down key three times and enter the 
following: 

PRINTCHR$(19) = P0KE198,l»P0KE631,13:P0KE153,l<return> 

The tape will finally stop and return an error message. For once you 
can ignore this, as all is well. Have a look and you will find that your 
two programs are now merged! 

Append 

Now for a routine to join one program to another. This, unlike the 
merge program, does not renumber the lines. It merely joins one Bas- 
ic program to the end of another, and the one being joined should 
have higher line numebers if the routine is to make any sense at all! 

To do it from Basic is fairly simple, but will give us a good insight into 
the general technique. Enter the following: 

108 PRINT"THIS IS THE SECOND PART" 
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Ilia PRINT"OF OUR APPEND PROGRAM" 

120 PRINT"WE ARE WRITING IT FIRST" 

138 PRINT"SO THAT IT CAN BE SAVED" 

148 PRINT"BEFORE WE ENTER THE FIRST" 

158 PRINT"PART AND APPEND THIS PART" 

168 END 

Now save the program to disk or tape and enter the following: 

18 PRINT"[CLR3THIS IS THE FIRST PART" 

28 PRINT"OFF OUR PROGRAM AND THIS" 

38 PRINT"WILL REMAIN IN MEMORV" 

48 PRINT"WHILE WE TAG THE SECOND" 

58 PRINT"PART ON TO THE END" 

Now clear the screen and enter the following in direct mode: 

PRINT PEEKC 43), PEEK C 44 >< return > 

You will get 1 and 8, or at least you should. Scratch your head a lot 
if you don't. These numbers represent the start of Basic. You may 
need to remember them. 

Now some more entering in direct mode: 

POKE 43,PEEK(45)-2 = P0KE 44, PEEK(46)< return > 

LOAD "PART TWO" < return > 

When the ready message comes back enter: 

POKE 43 , 1 : POKE 44 , 8 < return > 

The two programs are now merged and can be saved to tape or disk. 
The key here is to take the start of Basic pointers (43 and 44) and alter 
them to point at the end of the current program, using the end of pro- 
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gram pointers (45 and 46). You can then load in the program to be 
appended and save the program off only after the start of Basic pointers 
have been reset (43 and 44). 

Now that you understand the method in general we need a program 
that will do this for us. The program below starts at location $012C 
hex 300 decimal. 

The idea is the same as outlined above with our two Basic programs. 
Line numbers must not be duplicated, but should be consecutive. The 
routine first sets up a load by placing a zero in location $0A hex and 
then branches to the routine to set the parameters for the load ($E1 D4 
hex). 

The pointer for the start of Basic variables is set to the actual end of 
the program. This means that the zeros indicating the end of the Bas- 
ic program are subtracted from the pointers. The program to be load- 
ed is then called from tape or disk ($FFD5 hex) and the routine to 
re-chain the Basic lines is called ($A533 hex). 

The rest of the routine loops through the program until the Basic pro- 
gram is appended and the pointers are reset. This routine is called in 
the following way: 

SVS380" < f i 1 ename > " , dn < return > 

where filename is the name of the program to be appended and 'dn' 
is the device number. 



B* 

PC SR AC XR YR SP 

. ; 0008 30 00 00 00 F6 

012C A9 00 LDA ##00 

012E 85 0A STA *0A 

0130 20 D4 El JSR *E1D4 

0133 A5 2D LDA *2D 

0135 38 SEC 

0136 E9 02 SBC ft*02 

0138 AA TAX 

0139 A5 2E LDA *2E 
013B E9 00 SBC #«00 
01 3D A8 TAY 
013E AS 0A LDA *0A 

0140 20 D5 FF JSR *FFD5 
0143 20 33 A5 JSR *A533 
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0146 


A5 


2D 


LDA 


*2D 


13148 


A4 


2E 


LDY 


*2E 


014A 


38 




SEC 




014B 


E9 


02 


SBC 


#*02 


014D 


85 


57 


STA 


*57 


014F 


98 




TYA 




0150 


E9 


00 


SBC 


tt*00 


0152 


85 


58 


STA 


♦58 


0154 


A0 


00 


LDY 


**00 


0156 


Bl 


57 


LDA 


(*57) ,Y 


0158 


D0 


IB 


BNE 


*0175 


015A 


CB 




I NY 




015B 


Bl 


57 


LDA 


<*57) ,Y 


015D 


D0 


16 


BNE 


*0175 


015F 


A5 


57 


LDA 


*57 


0161 


18 




CLC 




0162 


69 


02 


ADC 


«*02 


0164 


85 


2D 


STA 


*2D 


0166 


85 


2F 


STA 


*2F 


0168 


85 


31 


STA 


*31 


016A 


A5 


58 


LDA 


*58 


016C 


69 


00 


ADC 


#*00 


016E 


85 


2E 


STA 


*2E 


0170 


85 


30 


STA 


*30 


0172 


85 


32 


STA 


*32 


0174 


60 




RTS 




0175 


A0 


00 


LDY 


#*00 


0177 


Bl 


57 


LDA 


(*57),Y 


0179 


85 


59 


STA 


*59 


017B 


CB 




I NY 




017C 


Bl 


57 


LDA 


<*57) ,Y 


017E 


85 


58 


STA 


*5B 


0180 


A5 


59 


LDA 


♦59 


0182 


85 


57 


STA 


♦57 


0184 


4C 


54 01 


JMP 


*0154 



. S012C A9 00 85 0A 20 D4 El A5 
.9 0134 2D 38 E9 02 AA A5 2E E9 
. :013C 00 A8 AS 0A 20 D5 FF 20 
. S0144 33 A5 AS 2D A4 2E 38 E9 
. J014C 02 85 57 98 E9 00 85 58 
.10154 A0 00 Bl 57 D0 IB CB Bl 
. S015C 57 D0 16 AS 57 18 69 02 
.10164 85 2D 85 2F 85 31 AS 38 
. S016C 69 00 85 2E B5 30 85 32 
. S0174 60 A0 00 Bl 57 85 59 CB 
.J017C Bl 57 85 58 A5 59 85 57 
. :0184 4C 54 01 00 00 00 00 00 
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4. New Commands and 
Interrupts 



Having just spent most of the night trying to write a 'pop' command 
for the 64, I thought this must be the place to talk about adding 
commands to Basic. I don't think my 64 would agree with me, as it 
cowers in the corner from the night's abuse. 



Interrupts 

So perhaps we will look at interrupts first. The interrupt is a routine 
in the 64 that does all the housework, checks the keyboard and updates 
timing and the screen. It does all this approximately 60 times a second. 

If one is very careful, the interrupts can be momentarily diverted from 
their housekeeping to a routine that we have written. There are some 
elementary rules to remember. The routine that the interrupt is diverted 
to will add time to the interrupt and the last instruction in our routine 
should send the interrupts back to their housekeeping. 

We are aiming to have the interrupt check our routine and speed it 
up. Below are two interrupt-driven routines that will demonstrate the 
technique and enable you to understand it better. They both slow the 
64 down considerably, but will serve as demos. Both of these routines 
are serious only in as much as they are meant to explain how to start 
using the interrupts for your own routines. 

It is vital when developing interrupt-driven routines to make sure that 
the instruction SEI (set interrupts) is issued before changing the 
interrupt vector and that the instruction CLI (clear interrupts) is issued 
before leaving the routine. 
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Interrupt 1 

In the first example the interrupt vector is changed to point at $100D 
hex, by replacing the the interrupt vector at $0314 and $0315 hex with 
$100D, in low byte high byte format. The routine places characters 
on the screen and changes them and their colours constantly. 

The routine that the interrupts are directed to must always end with 
a jump back to the normal interrupt routine or else you are in trouble. 
The last instruction should be JMP $EA31 , which jumps back to the 
normal interrupt routine. To call this routine enter SYS 4096 < return > . 



B* 

PC SR AC XR YR SP 
. : 0008 30 00 00 00 F6 



1000 


7B 




SEI 






1001 


A9 


0D 


LDA 


#*0D 




1003 


8D 


14 03 


STA 


♦0314 




1006 


A9 


10 


LDA 


#*10 




1008 


BD 


15 03 


STA 


40315 




100B 


58 




CLI 






100C 


60 




RTS 






100D 


A9 


00 


LDA 


H*00 




100F 


85 


FB 


STA 


*FB 




1011 


A9 


04 


LDA 


#*04 




1013 


85 


FC 


STA 


*FC 




1015 


A9 


00 


LDA 


#*00 




1017 


85 


FD 


STA 


*FD 




1019 


A9 


D8 


LDA 


#*DB 




101B 


85 


FE 


STA 


*FE 




101D 


A0 


00 


LDY 


#*00 




101F 


Bl 


FB 


LDA 


<*FB) , 


pY 


1021 


69 


01 


ADC 


#*01 




1023 


91 


FB 


STA 


(*FB) , 


,Y 


1025 


Bl 


FD 


LDA 


<*FD) , 


pY 


1027 


69 


01 


ADC 


«*01 




1029 


91 


FD 


STA 


(*FD) , 


,Y 


102B 


CB 




I NY 






102C 


00 


Fl 


BNE 


*101F 




102E 


4C 


31 EA 


JMP 


*EA31 
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:1000 78 A9 0D 8D 14 03 A9 1(3 
: 1008 8D 15 03 58 60 A9 00 85 
:1010 FB A9 04 85 FC A9 00 85 
: 1018 FD A9 D8 85 FE A0 00 Bl 
: 1020 FB 69 01 91 FB Bl FD 69 
:1028 01 91 FD C8 D0 Fl 4C 31 
: 1030 EA 00 00 00 00 00 00 00 



Interrupt 2 



The second routine is slightly longer, but in fact the interrupt-driven 
part of the routine ($1040 hex onwards) does less. The routine puts 
the 64 into lower case, clears the screen, sets the screen and border 
colours. The next part of the routine puts two messages on the screen. 

Finally the interrupt-driven routine is called at $1040 hex and the rou- 
tine exits. What is happening? Well, the screen is being scrolled con- 
tinuously except for the top row. Try clearing the screen and typing 
something on the top line. It's easy, but slow. 

Now move the cursor down a few lines and try typing something sen- 
sible. Not so easy, is it? The message is set to start at $1071 hex, but 
I have chosen to leave you to put the hex equivalent of the message 
in. The number of characters as the routine stands is 23: have fun! 

B* 

PC SR AC XR YR SP 
. ; 0008 F0 C7 00 40 F6 



1000 


A9 


17 




LDA 


#*17 


1002 


8D 


18 


D0 


STA 


*D018 


1005 


A9 


93 




LDA 


#*93 


1007 


20 


D2 


FF 


JSR 


*FFD2 


100A 


A9 


00 




LDA 


#$00 


100C 


8D 


20 


D0 


STA 


*D020 


100F 


A9 


01 




LDA 


#*01 


1011 


8D 


21 


D0 


STA 


*D021 


1014 


A9 


90 




LDA 


#*90 


1016 


20 


D2 


FF 


JSR 


*FFD2 


1019 


A2 


00 




LDX 


##00 


101B 


BD 


71 


10 


LDA 


*1071,X 


101E 


9D 


00 


04 


STA 


#0400 , X 


1021 


E8 






I NX 




1022 


E0 


17 




CPX 


#*17 


1024 


D0 


F5 




BNE 


S101B 
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1026 A2 
102B BD 
102B 9D 
102E E8 
102F E0 
1031 D0 

1033 78 

1034 A9 
1036 8D 

1039 A9 
103B 8D 
103E 58 
103F 60 

1040 A9 
1042 A2 
1044 85 
1046 A9 
1048 85 
104 A A0 
104C Bl 
104E 85 

1050 CB 

1051 Bl 

1053 88 

1054 91 

1056 C8 

1057 98 

1058 C9 
105A D0 
105C A5 
105E 91 
1060 AS 

1062 18 

1063 69 
1065 85 
1067 90 
1069 E6 
106B CA 
106C D0 
106E 4C 



00 

88 10 
E0 05 

1C 
F5 

40 

14 03 
10 

15 03 



28 
18 
57 
04 
58 
00 
57 
59 

57 

57 



27 
F4 
59 
57 
57 

28 
57 
02 
58 

DC 
31 EA 



LDX 

LDA 

STA 

INX 

CPX 

BNE 

SEI 

LDA 

STA 

LDA 

STA 

CLI 

RTS 

LDA 

LDX 

STA 

LDA 

STA 

LDY 

LDA 

STA 

I NY 

LDA 

DEY 

STA 

I NY 

TYA 

CMP 

BNE 

LDA 

STA 

LDA 

CLC 

ADC 

STA 

BCC 

INC 

DEX 

BNE 

JMP 



#*00 
*1088,X 
*05E0 , X 

#*1C 
$1028 

**40 
*0314 
#$10 
*0315 



#*28 

tt*18 

*57 

#*04 

*58 

#*00 

<*57) ,Y 

*59 

<*57) ,Y 

(*57) ,Y 



#*27 
$1050 
*59 

<*57) ,Y 
*57 

#*28 
*57 
*106B 
*5B 

*104A 
*EA31 



: 1000 A9 17 8D 18 D0 A9 93 20 
•1008 D2 FF A9 00 BD 20 D0 A9 
: 1010 01 8D 21 D0 A9 90 20 D2 
:1018 FF A2 00 BD 71 10 9D 00 
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: 1020 04 E8 E0 17 D0 F5 A2 00 

. : 1028 BD 88 10 9D E0 05 EB E0 

. : 1030 1C D0 F5 78 A9 40 8D 14 

, t 1038 03 A9 10 80 IS 03 58 60 

, : 1040 A9 28 A2 18 85 57 A9 04 

.11048 85 58 A0 00 Bl 57 85 59 

:1050 C8 Bl 57 88 91 57 CB 98 

l 1058 C9 27 D0 F4 AS 59 91 57 

:1060 AS 57 18 69 28 85 57 90 

: 1068 02 E6 58 CA 00 DC AC 31 

i 1070 EA 00 00 00 00 00 00 00 



Using charget to add commands 

Charget or character get is a short program in zero page from $73 hex 
115 decimal to $8A hex 138 decimal. Its function is to provide the link 
between Basic and the interpreter. When you type 'run', each line of 
the program is put into the Basic input buffer. The charget routine 
then scans through it until it finds a recognisable byte. This is then 
put into the accumulator where the interpreter deals with it. 

This is the routine that we need to modify in order to add new com- 
mands to Basic. The program is set up to add a command called 'Dl' 
which will display the directory of the disk, but could easily be changed 
to add other commands. 

The routine starts at $C000 hex and the first thing that it does is to 
transfer the instruction JMP $C00F to $73 hex (start of charget). This 
means that the charget routine will scan a specified area for a new 
word. If it is found then control jumps to $C043 hex to execute the 
statement. 

By replacing the directory command from $C043 hex onwards you 
can add other statements. You will also need to change the ASCII 
characters that the charget routine is searching for. Call this routine 
with SYS 49152 and use Dl to display the directory. 
B* 

PC SR AC XR YR SP 
. 5 0008 F0 C7 00 40 F6 



C000 A2 02 LOX #*02 
C002 BD 0B C0 LDA *C00B,X 
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C005 95 
C007 CA 
C00B 10 
C00A 60 
C00B 4C 
C00E 00 
C00F E6 
C011 D0 
C013 E6 
C015 8E 
C018 BA 
C019 38 
C01A BD 
C01D E9 
C01F 7D 
C022 E9 
C024 D0 
C026 20 
C029 C9 
C02B F0 
C02D AE 
C030 4C 
C033 20 
C036 C9 
C038 F0 
C03A C9 
C03C F0 
C03E A2 
C040 6C 
C043 A9 
C045 85 
C047 A9 
C049 85 
C04B A9 
C04D 85 
C04F A9 
C051 85 
C053 A9 
C055 85 
C057 A9 
C059 85 
C05B 20 
C05E A5 
C060 20 
C063 A5 
C065 20 
C068 A9 
C06A 85 
C06C A0 
C06E 84 
C070 20 



73 

F8 

OF C0 

7A 
02 
7B 
0E C0 



01 01 
8C 

02 01 
A4 
07 

79 00 

44 

06 

0E C0 

79 00 

73 00 

49 

09 

52 

05 

0B 

00 03 

24 

FB 

FB 

BB 

00 

BC 

01 

B7 

08 

BA 

60 

B9 

D5 F3 

BA 

B4 FF 

B9 

96 FF 

00 

90 

03 

FB 

A5 FF 



STA 

DEX 

BPL 

RTS 

J MP 

BRK 

INC 

BNE 

INC 

STX 

TSX 

SEC 

LDA 

SBC 

ADC 

SBC 

BNE 

JSR 

CMP 

BEQ 

LDX 

JMP 

JSR 

CMP 

BEQ 

CMP 

BEQ 

LDX 

JMP 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

JSR 

LDA 

JSR 

LDA 

JSR 

LDA 

STA 

LDY 

STY 

JSR 



*73,X 

*C002 

*C00F 

*7A 
*C015 
*7B 
*C00E 



*0101,X 

#*8C 

*0102,X 

tt*A4 

*C02D 

*0079 

#*44 

*C033 

*C00E 

•0079 

♦0073 

#*49 

*C043 

#*52 

•C043 

#*0B 

<*0300) 

#*24 

*FB 

#*FB 

*BB 

tt*00 

*BC 

#*01 

*B7 

M«08 

*BA 

tt*60 

*B9 

*F3D5 

*BA 

*FFB4 

*B9 

*FF96 

#*00 

*90 

#*03 

*FB 

♦FFA5 
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C073 


85 


FC 




STA 


*FC 


C075 


A4 


90 




LDY 


♦90 


C077 


D0 


2F 




BNE 


*C0A8 


C079 


20 


AS 


FF 


JSR 


*FFA5 


C07C 


A4 


90 




LDY 


*90 


C07E 


D0 


28 




BNE 


*C0AS 


C080 


A4 


FB 




LDY 


*FB 


C082 


88 






DEY 




C0S3 


D0 


E9 




BNE 


*C06E 


C085 


A6 


FC 




LDX 


*FC 


C087 


20 


CO 


BO 


JSR 


*BDCD 


C08A 


A9 


20 




LDA 


#*20 


C08C 


20 


D2 


FF 


JSR 


*FFD2 


C08F 


20 


A5 


FF 


JSR 


*FFA5 


C092 


A6 


90 




LDX 


*90 


C094 


D0 


12 




BNE 


*C0A8 


C096 


AA 






TAX 




C097 


F0 


06 




BEQ 


*C09F 


C099 


20 


D2 


FF 


JSR 


*FFD2 


C09C 


4C 


78 


01 


J MP 


*0178 


C09F 


A9 


0D 




LDA 


#*0D 


C0A1 


20 


02 


FF 


JSR 


♦FFD2 


C0A4 


A0 


02 




LDY 


#*02 


C0A6 


D0 


C6 




BNE 


*C06E 


C0A8 


20 


42 


F6 


JSR 


*F642 


C0AB 


6C 


00 


03 


J MP 


<*0300) 



sC000 


A2 


02 


BD 


0B 


C0 


95 


73 


CA 


IC008 


10 


F8 


60 


4C 


0F 


C0 


00 


E6 


1C010 


7A 


D0 


02 


E6 


7B 


8E 


0E 


C0 


IC018 


BA 


38 


BD 


01 


01 


E9 


BC 


7D 


(C020 


02 


01 


E9 


A4 


D0 


07 


20 


79 


iC028 


00 


C9 


44 


F0 


06 


AE 


0E 


C0 


CC030 


4C 


79 


00 


20 


73 


00 


C9 


49 


IC038 


F0 


09 


C9 


52 


F0 


05 


A2 


0B 


(C040 


6C 


00 


03 


A9 


24 


B5 


FB 


A9 


:C048 


FB 


85 


BB 


A9 


00 


85 


BC 


A9 


IC050 


01 


85 


B7 


A9 


08 


85 


BA 


A9 


tC058 


60 


85 


B9 


20 


05 


F3 


A5 


BA 


sC060 


20 


B4 


FF 


A5 


B9 


20 


96 


FF 


IC068 


A9 


00 


85 


90 


A0 


03 


84 


FB 


• C070 


20 


A5 


FF 


85 


FC 


A4 


90 


D0 


IC078 


2F 


20 


A5 


FF 


A4 


90 


D0 


28 


■ C080 


A4 


FB 


88 


D0 


E9 


A6 


FC 


20 
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iCBBB CD BO A9 20 20 D2 FF 20 
IC090 AS FF A6 90 D0 12 AA F0 
IC098 06 20 D2 FF 4C 78 01 A9 
IC0A0 0D 20 D2 FF A0 02 00 C6 
■C0A8 20 42 F6 6C 00 03 00 00 



5. Kernal Routines 



There are many Kernal routines that can be very useful. A few exam- 
ples are given here. 



Kernal 1 

This routine demonstrates the CHRIN and the CHROUT routines. The 
CHRIN routine lives at $FFCF hex and the CHROUT routine lives at 
$FFD2 hex. 

The CHRIN routine can be used by any device, as long as it has been 
set up to receive the information with the OPEN and CHKIN routines. 
In this case we will use the keyboard and no preparatory routines are 
needed. When this routine is called it will accept up to 88 characters 
from the keyboard terminated by a carriage return. 

This is exactly what the demo does: it waits for input from the key- 
board and stores the data and then uses CHKIN to place it on the screen 
again. This is a fairly simple use of the routine, but quite a demonstra- 
tive one. The routine used to demonstrate CHRIN and CHKIN starts 
at $C000 hex and is called from Basic with SYS49152. Don't forget 
the return. 



B* 

PC SR AC XR YR SP 
. } 0008 F0 C7 00 40 P6 

C000 A9 17 LDA #417 



C000 A9 17 LDA #*17 

C002 8D 18 D0 STA *D018 

C005 A9 00 LDA tt*00 

C007 8D 20 D0 STA *D020 

C00A A9 01 LDA #*01 
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caac 


8D 


21 


DB 


STA 


*DB21 


CBBF 


A2 


BB 




LDX 


#*BB 


can 


2B 


CF 


FF 


JSR 


*FFCF 


CB14 


9D 


2F 


CB 


STA 


*CB2F,X 


CB17 


E8 






INX 




CB18 


C9 


BD 




CMP 


#*BD 


CB1A 


DB 


F5 




BNE 


*CB11 


CB1C 


A9 


93 




LDA 


**93 


cbie 


2B 


D2 


FF 


JSR 


*FFD2 


CB21 


A2 


BB 




LDX 


#*aa 


CB23 


BD 


2F 


CB 


LDA 


*CB2F,X 


CB26 


2B 


D2 


FF 


JSR 


*FFD2 


CB29 


EB 






INX 




CB2A 


C9 


BD 




CMP 


#*BD 


CB2C 


DB 


F5 




BNE 


*CB23 


CB2E 


6B 






RTS 





icaea A9 17 sd is db A9 bb bd 

icaae 2B db A9 bi bd 21 db A2 

iCBIB BB 20 CF FF 9D 2F CB E8 

sCBIB C9 BD DB F5 A9 93 2B D2 

BCB2B FF A2 BB BD 2F CB 2B D2 

:CB2B FF EB C9 BD DB F5 6B BB 



Kernal 2 

Our second routine demonstrates the use of the GETIN routine, which 
is at $FFE4 hex. It takes a character from the keyboard buffer and places 
it into the accumulator. If there are no characters then a zero is 
returned. 

Our routine below waits for a key press and then outputs to the screen 
using the CHKIN routine. To call it enter SYS49152. 



B* 

PC SR AC XR YR SP 
. J BBBB FB C7 BB 40 F6 



caea 2B E4 ff 



JSR *FFE4 
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CB03 C9 00 CMP #*00 

C005 F0 F9 BEQ *C000 

C007 20 D2 FF JSR *FFD2 

C00A 60 RTS 



s C000 20 E4 FF C9 00 F0 F9 20 
, i C008 D2 FF 60 00 00 00 00 00 



Kernal 3 

The third routine uses the PLOT routine at $FFFO hex. This routine 
can be used to read the current cursor position or to position the cursor. 

The 'X' and 'Y' registers must contain the row and column destina- 
tion of the cursor. The routine below clears the screen, uses PLOT 
to position the cursor and places a 'C in the position stated. Use 
SYS49152 to call this routine. 

B* 

PC SR AC XR YR SP 
.,0008 F0 C7 00 40 F6 



C000 


A9 


93 




LDA 


#*93 


C002 


20 


D2 


FF 


JSR 


♦FFD2 


C005 


A9 


00 




LDA 


**00 


C007 


A2 


10 




LDX 


#*10 


C009 


A0 


10 




LDY 


#*10 


C00B 


18 






CLC 




C00C 


20 


F0 


FF 


JSR 


*FFF0 


C00F 


A9 


43 




LDA 


#*43 


C011 


20 


D2 


FF 


JSR 


♦FFD2 


C014 


60 






RTS 





. i C000 A9 93 20 D2 FF A9 00 A2 
. IC008 10 A0 10 18 20 F0 FF A9 
. IC010 43 20 D2 FF 60 00 00 00 
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Kernal 4 

The fourth routine is one of many ways of saving programs. The rou- 
tine collects the parameters for the save and then branches to per- 
form the save ($E159 hex). Use SYS49152from Basic to save a Basic 
program to tape. 

B* 

PC SR AC XR YR SP 
. ; 0008 F0 C7 00 40 F6 

C000 20 D4 El JSR *E1D4 
C003 20 59 El JSR *E159 
C006 60 RTS 



:C000 20 04 El 20 59 El 60 00 



Kernal 5 

This will LOAD a program from tape. It uses three routines. The first 
routine sets the length of the file SETLFS at $FFBA. The second rou- 
tine, SETNAM at $FFBD, sets the name of the file. The accumulator 
should contain the length of the filename. The 'X' and 'Y' registers 
should contain the low and high address of the filename. If no file- 
name is used then load the accumulator with zero. The third routine 
is LOAD at $FFD5. This routine can also be used to verify a program. 
To load a program the accumulator must contain a zero. To verify it 
must contain a 1. The routine is then called. Use SYS49152 to load 
a Basic program. 
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B* 

PC SR AC XR YR SP 
. ;0008 F0 C7 00 40 F6 

C000 A9 01 LDA #*01 

C002 A2 01 LDX #*01 

C004 A0 01 LDY #*01 

C006 20 BA FF JSR *FFBA 

C009 A9 00 LDA #*00 

C00B 20 BD FF JSR *FFBD 

C00E A9 00 LDA «*00 

C010 20 DS FF JSR *FFD5 

C013 60 RTS 



. IC000 A9 01 A2 01 A0 01 20 BA 
. SC008 FF A9 00 20 BD FF A9 00 
. IC010 20 DS FF 60 00 00 00 00 



Kernal and ROM routines 

Given below is as complete a list as possible of the Kernal (operating 
system) and Basic ROM routines and how to use them. 

The Kernal routines use what is commonly termed the Jumbo jump 
table from $FF81 hex to FFFF hex. The last section, $FFF6 to $FFFF, 
are hardware vectors. The function of the jumbo jump table is to give 
control to the operating system routines. I have therefore decided to 
include the jump address where the table is used. 

The following format is used in describing the routines: 

Name: name of routine 

Purpose: purpose of routine 

Jump address: call address of routine in hex 

Address: start address of routine in hex 
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Communication registers: the registers accessed in order to pass data 
to and from the subroutine 

Preparatory routines: routines that need to be called to set up data 
before the Kernal routine can be used. This often depends upon the 
particular use of the Kernal routine. 

Errors: any errors returned from the routines will have their code placed 
in the accumulator 

Stack use: number of stack bytes used by the routine 

Registers affected: a list of all registers affected by the subroutine 

Function: a brief description of the routine 

1. Name: ACPTR 

Purpose: Get data from the serial bus 

Jump address: FFA5 

Address: EE13 

Communication registers: A. Data is returned in accumulator 

Preparatory routines: TALK and TKSA 

Errors: see READST 

Stack use: 13 

Registers affected: X and A 

Function: This routine gets one byte of data 

at a time from the serial bus, and 
places it in the accumulator. 

2. Name: CHKIN 

Purpose: Open a channel for input 

Jump address: FFC6 
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Address: 


031 E (vector) 


Communication registers: 


X 


Preparatory routines: 


OPEN 


Errors: 


3, 5 and 6 


Stack use: 





Registers affected: 


A and X 


Function: 


The ODen rout 



The open routine must used before 
this routine the default is keyboard. 
The X register must be loaded with 
the logical file number. 



. Name: 


CHKOUT 


Purpose: 


Open a channel for output 


Jump address: 


FFC9 


Address: 


0320 (vector) 


Communication registers: 


X 


Preparatory routines: 


OPEN 


Errors: 


0, 3, 5 and 7 


Stack use: 


4 


Registers affected: 


A and X 


Function: 


Use this routine to outnut < 



device. The OPEN routine must be 
used first unless screen output is 
desired. The X register should 
contain the logical file number. 
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4. Name: 
Purpose: 
Jump address: 
Address: 

Communication registers: 
Preparatory routines: 
Errors: 
Stack use: 
Registers affected: 
Function: 



CHRIN 

Get a character from input channel 

FFCF 

0324 (vector) 

A 

OPEN and CHKIN 

see READST 

7 

AandX 

Assumes keyboard unless the OPEN 
and CHKIN routines have been 
used. The routine gets one byte of 
data from the input channel and 
places it in the accumulator. 



5. Name: 
Purpose: 
Jump address: 
Address: 

Communication registers: 
Preparatory routines: 
Errors: 
Stack use: 
Registers affected: 
Function: 



CHROUT 

Output a character 

FFD2 

0326 (vector) 

A 

OPEN and CHKOUT 

see READST 

8 

A 

Assumes keyboard unless the OPEN 
and CHKOUT routines have been 



96 



used. The routine outputs data, 
which has been placed in the 
accumulator before the routine is 
called. 



6. Name: 
Purpose: 
Jump address: 
Address: 

Communication registers: 
Preparatory routines: 
Errors: 
Stack use: 
Registers affected: 
Function: 



CIOUT 

Transmit a byte over the serial bus 

FFA8 

EDDD (send serial deferred) 

A 

LISTEN and SECOND 

see READST 

5 

A 

Used to send information to devices 
using the serial bus. Will need the 
LISTEN routine and SECOND if a 
secondary address is needed. Load 
accumulator with byte to be sent. 



7. Name: 
Purpose: 
Jump address: 
Address: 



CLALL 
Close all files 
FFE7 
032C (vector) 



Communication registers: None 
Preparatory routines: None 

Errors: None 
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Stack use: 


11 


Registers affected: 


AandX 


Function: 


Closes all files and resets the I/O 


8. Name: 


CLOSE 


Purpose: 


Close a logical file 


Jump address: 


FFC3 


Address: 


031 C (vector) 


Communication registers: 


A 


Preparatory routines: 


None 


Errors: 


None 


Stack use: 


2 


Registers affected: 


AandX 


Function: 


Closes a logical file using the 
number set by the OPEN routine. 


9. Name: 


CLRCHIN 


Purpose: 


Clear I/O channels 


Jump address: 


FFCC 


Address: 


0322 (vector) 



Communication registers: None 

Preparatory routines: None 

Errors: None 

Stack use: 9 
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Registers affected: 
Function: 



A and X 

Clears all open channels and resets 
I/O to default values. 



10. Name: 
Purpose: 



GETIN 

Get character from keyboard buffer 
queue 



Jump address: FFE4 

Address: 032A (vector) 

Communication registers: A 

Preparatory routines: None 



Errors: 


None 


Stack use: 


7 


Registers affected: 


A and (X, Y) 


Function: 


Takes one ch. 



11. Name: 
Purpose: 
Jump address: 
Address: 



the keyboard. buffer and returns it in 
the accumulator. 



IOBASE 

Define I/O memory page 

FFF3 

E500 (get I/O address) 



Communication registers: X and Y 

Preparatory routines: None 

Errors: None 

Stack use: 2 
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Registers affected: 
Function: 



Xand Y 

The X and Y registers return the low 
and high address respectively of 
memory mapped I/O devices. Exists 
to aid compatibility with past and 
future machines. 



12. Name: 
Purpose: 
Jump address: 
Address: 



IOINIT 

Initialise I/O devices 

FF84 

FDA3 (initialise I/O) 



Communication registers: None 

Preparatory routines: None 

Errors: None 

Stack use: None 

Registers affected: A, X and Y 





Function: 




Initialises all I/O devices. Used by 
cartridges. 


13. 


Name: 




LISTEN 




Purpose: 




Command a device on the serial bus 
to listen 




Jump address: 




FFB1 




Address: 




EDOC 




Communication 


registers: 


A 




Preparatory routines: 


None 




Errors: 




see READST 
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Stack use: 
Registers affected: 
Function: 



None 

A 

Will command device to listen. The 
accumulator must be loaded with 
the device number. 



14. Name: 
Purpose: 
Jump address: 
Address: 

Communication registers: 
Preparatory routines: 
Errors: 
Stack use: 
Registers affected: 
Function: 



15. Name: 
Purpose: 

Jump address: 



LOAD 

Load RAM from device or verify 

FFD5 

F49E (load program) 

A, X and Y 

SETLFS and SETNAM 

0, 4, 5, 8 and 9 

None 

A, X and Y 

Use this routine to load RAM from 
device or verify. The accumulator 
must be loaded with for load or 1 
for verify. LOAD can be set to ignore 
the header by giving a secondary 
address of (in the OPEN routine). 
In this case the start and end 
addresses must be given and the 
program may be located where 
desired. 

MEMBOT 

Set or read the bottom address of 
RAM 

FF9C 
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Address: 



FE34 (read or set bottom of 
memory) 



Communication registers: X and Y 

Preparatory routines: None 

Errors: None 

Stack use: None 

Registers affected: X and Y 
Function: 



This routine will read or set the bot- 
tom of RAM. If the carry flag equals 
1 then read, if then set. Normal 
value $0800 



16. Name: 
Purpose: 
Jump address: 
Address: 



MEMTOP 

Set or read the top address of RAM 

FF99 

FE34 (read or set top of memory) 



Communication registers: X and Y 

Preparatory routines: None 

Errors: None 

Stack use: 2 

Registers affected: X and Y 
Function: 



This routine will read or set the top 
of RAM. If the carry flag equals 1 
then read if 0, then set. 



17. Name: 
Purpose: 
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OPEN 

Open a logical file 



Jump address: FFCO 

Address: 031 A (vector) 

Communication registers: None 

Preparatory routines: SETLFS and STENAM 



Errors: 


1,2,4,5,6 


Stack use: 


None 


Registers affected: 


A, X and Y 


Function: 


This routii 



This routine requires SETLFS 
(length of name) and SETNAM (file- 
name). It opens a logical file for use 
in any I/O operation. 



18. Name: 
Purpose: 
Jump address: 
Address: 



PLOT 

Set or read current cursor location 

FFFO 

E50A (put/get row/column) 



Communication registers: A, X and Y 
Preparatory routines: None 



Errors: 


None 


Stack use: 


2 


Registers affected: 


A, X and Y 


Function: 


This routine 



position. If the carry flag is set, the 
cursor is set. If it is clear a read cur- 
sor is performed. 
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19. Name: 
Purpose: 
Jump address: 
Address: 



RAMTAS 

Perform RAM test 

FF87 

FD50 (initialise system constants) 



Communication registers: A, X and Y 

Preparatory routines: None 

Errors: None 

Stack use: 2 

Registers affected: A, X and Y 
Function: 



20. Name: 
Purpose: 
Jump address: 
Address: 



Tests and sets RAM. Also sets the 
screen and is used by cartridges. 

RDTIM 

Read system clock 

FFDE 

F6DD (get time) 



Communication registers: A, X and Y 
Preparatory routines: None 

Errors: 



Stack use: 
Registers affected: 
Function: 



None 

2 

A, X and Y 

Reads system clock (3 bytes) and 
returns most significant byte in ac- 
cumulator, next significant byte in X 
register and least significant byte in 
Y register. 
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21. Name: 


READST 


Purpose: 


Read status word 


Jump address: 


FFB7 


Address: 


FE07 (get status) 


Communication registers: 


A 


Preparatory routines: 


None 


Errors: 


None 


Stack use: 


2 


Registers affected: 


A 


Function: 


Returns current 



devices in accumulator. Information 
returned includes device status and 
error codes. Bits returned in ac- 
cumulator contain the following in- 
formation: 



BIT 



VALUE 
1 


CASSETTE 
READ 


SERIAL 

R/W 

time out write 


TAPE VERIFY 
+ LOAD 


1 


2 




time out read 




2 


4 


short block 




short block 


3 


8 


long block 




long block 


4 


16 


unrecoverable 




any mismatch 


5 


32 


checksum 
error 




checksum 
error 


6 


64 


end of file 


E01 




7 


128 


end of tape 


device not 
present 


end of tape 
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22. Name: 
Purpose: 



RESTOR 

Restore default system and interrupt 
vectors 



Jump address: FF8A 

Address: FD15 (Kernal reset) 

Communication registers: None 

Preparatory routines: None 



Errors: 


None 


Stack use: 


2 


Registers affected: 


A, X and Y 


Function: 


Restores all interrupt, I 
and Basic to default vali 


23. Name: 


SAVE 


Purpose: 


Save memory to device 


Jump address: 


FFD8 


Address: 


F5DD (save program) 



Communication registers: A, X and Y 
Preparatory routines: SETLFS and SETNAM 



Errors: 
Stack use: 
Registers affected: 
Function: 



5,8,9 

2 

A, X and Y 

Saves memory to device; needs 
SETLFS and SETNAM. Accumula- 
tor must contain zero page offset to 
start of save and X and Y registers 
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should be loaded with low and high 
bytes of end of save. 



24. Name: 
Purpose: 
Jump address: 
Address: 



SCNKEY 

Scans keyboard 

FF9F 

EA87 (read keyboard) 



Communication registers: None 
Preparatory routines: IOINIT 

Errors: None 



Stack use: 
Registers affected: 
Function: 



A, X and Y 

Any key pressed is placed by this 
routine into the keyboard buffer. 
This is usually done by the normal 
interrupts, but can be called in- 
dependently if required, usually 
when interrupts are bypassed. 



25. Name: 
Purpose: 



SCREEN 

Return number of screen rows and 
columns 



Jump address: FFED 

Address: E505 (get screen size) 

Communication registers: X and Y 

Preparatory routines: None 

Errors: None 
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Stack use: 
Registers affected: 
Function: 



2 

Xand Y 

Returns screen format. X register 
contains number of columns and Y 
register contains number of rows. 



26. 


Name: 


SECOND 




Purpose: 


Send secondary address for LISTEN 




Jump address: 


FF93 




Address: 


EDB9 (send listen secondary 
address) 




Communication registers: 


A 




Preparatory routines: 


LISTEN 




Errors: 


see READST 




Stack use: 


8 




Registers affected: 


A 




Function: 


Used to send to devinfi after 1 I55TPM 



27. Name: 
Purpose: 
Jump address: 
Address: 



has been called. The address is load- 
ed into the accumulator before the 
routine is called. 



SETLFS 

Set up a logical file 

FFBA 

FEOO (save file details) 



Communication registers: A, X and Y 
Preparatory routines: None 
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Errors: 


None 


Stack use: 


2 


Registers affected: 


A, X and Y 


Function: 


Sets logical 



address and device address. Load 
accumulator with logical file num- 
ber, X register with device number 
and Y register with secondary ad- 
dress (command). 



28. Name: 
Purpose: 
Jump address: 
Address: 

Communication registers: 
Preparatory routines: 
Errors: 
Stack use: 
Registers affected: 
Function: 



SETMSG 

Control system message output 

FF90 

FE18 (flag staus) 

A 

None 

None 

2 

A 

Sets control or error messages for 
the operating system. The user can 
set these messages. The accumula- 
tor must contain the value before 
calling this routine. 



29. Name: 
Purpose: 
Jump address: 



SETNAM 

Set up file name 

FFBD 
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Address: FDF9 (save filename data) 

Communication registers: A, X and Y 

Preparatory routines: None 

Errors: None 

Stack use: None 



Registers affected: 
Function: 



30. Name: 
Purpose: 
Jump address: 
Address: 

Communication registers: 
Preparatory routines: 
Errors: 
Stack use: 
Registers affected: 
Function: 



A, X and Y 

Used to set filename for OPEN, 
SAVE or LOAD routines. The ac- 
cumulator should be loaded with the 
length of the filename and the X and 
Y registers with the low and high 
bytes of the address in memory 
where the filename is stored. 

SETTIM 

Set the system clock 

FFDB 

F6E4 (set time) 

A, X and Y 

None 

None 



A, X and Y 

Resets the system clock. The ac- 
cumulator must be loaded with the 
most significant byte, the X register 
with the next most significant byte 
and the Y register with the least sig- 
nificant byte before calling this 
routine. 
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31. Name: 
Purpose: 
Jump address: 
Address: 

Communication registers: 
Preparatory routines: 
Errors: 
Stack use: 
Registers affected: 
Function: 



SETTMO 

Set the IEEE bus card timeout flag 

FFA2 

FE21 (set timeout) 

A 

None 

None 

2 

A 

Sets a timeout condition until data 
is received or an error condition is 
set up. The accumulator is loaded 
with and timeout is set; a 1 in Bit 
7 will disable timeout. 



32. 


Name: 


STOP 




Purpose: 


Check if stop key is pressed 




Jump address: 


FFE1 




Address: 


0328 (vector) 




Communication registers: 


A 




Preparatory routines: 


None 




Errors: 


None 




Stack use: 


2 




Registers affected: 


AandX 




Function: 


Any interruption with the sti 



sets the Z flag and all channels are 
reset to default 
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33. Name: 


TALK 


Purpose: 


Command a device on the serial bus 
to talk 


Jump address: 


FFB4 


Address: 


ED09 (send talk) 


Communication registers: 


A 


Preparatory routines: 


None 


Errors: 


see READST 


Stack use: 


None 


Registers affected: 


A 


Function: 


Device number should be placed 
into the accumulator before this rou- 
tine is called. 


34. Name: 


TKSA 


Purpose: 


Send secondary address to device 
commanded to TALK 


Jump address: 


FF96 


Address: 


EDC7 (send talk SA) 


Communication registers: 


A 


Preparatory routines: 


None 


Errors: 


see READST 


Stack use: 


8 


Registers affected: 


A 


Function: 


Anv secondary address shnnlH ho 



placed into the accumulator before 
this routine is called. 
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35. Name: 
Purpose: 
Jump address: 
Address: 

Communication registers: 
Preparatory routines: 
Errors: 
Stack use: 
Registers affected: 
Function: 



UDTIM 

Updates system clock 

FFEA 

F69B (bump clock) 

None 

None 

None 

2 

AandX 

Updates clock normally called by in- 
terrupts. If user interrupts are in- 
stalled then this routine must be 
called. 



36. Name: 


UNLSN 


Purpose: 


Command all devices 




to stop receiving dat; 


Jump address: 


FFAE 


Address: 


EDFE (send unlisten) 


Communication registers: 


None 


Preparatory routines: 


None 


Errors: 


see READST 


Stack use: 


8 


Registers affected: 


A 


Function: 


When called this routii 



devices on serial bus from listening 
to the 64. 
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37. Name: 
Purpose: 



UNTLK 

Send an UNTALK command to all 
devices on serial bus 



Jump address: FFAB 

Address: EDFE (send untalk) 

Communication registers: None 

Preparatory routines: None 



Errors: 


see READST 


Stack use: 


8 


Registers affected: 


A 


Function: 


When called this routine will stop all 
devices set with TALK from sending 
data. 


38. Name: 


VECTOR 


Purpose: 


Set or read system RAM vectors 


Jump address: 


FF8D 


Address: 


FD1A (Kernal move) 



Communication registers: X and Y 

Preparatory routines: None 

Errors: None 

Stack use: 2 

Registers affected: X and Y 
Function: 



If the carry flag is set when this rou- 
tine is called, the RAM vectors are 
read into a list pointed by the X and 
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Y registers. If the carry flag is clear 
the content of the list pointed to 
by the X and Y registers is read 
into RAM vectors. 



Error codes 

Value Meaning 

Routine terminated by STOP key 

1 Too many files open 

2 File already open 

3 File not open 

4 File not found 

5 Device not present 

6 File is not an input file 

7 File is not an output file 

8 File name is missing 

9 Illegal device number 

This concludes the main list of Kernal routines. 

Other ROM and Kernal routines 

These routines have been listed separately because they are not so 
easy to locate and use. Their documentation is almost non-existent, 
with the exception of the Complete Commodore 64 ROM Disassembly, 
by Pete Gerrard and myself, available from Duckworth. 

1. New line 

A49C - A530 
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Function: Each new line entered in a Basic program is han- 
dled by this routine. 



2. Crunch tokens 
A579 - A612 

Function: Commands are reduced to tokens by this routine. 

3. Perform RUN 
A871 - A882 

Function: Routine to perform RUN on Basic program. 

4. Garbage collection 

B526 - B5BC 

Function: Checks string storage and clears memory of un- 
wanted strings. 

5. Perform Save 

E156- E164 

Function: Performs a save. This is a short routine and can 
be accessed and used in many ways. It can be 
called in two or three places other than E156. 

6. Perform Load 

E165- E1BD 

Function: Performs a load. Like the save it can be used in 

many ways. Definitely worth close study. The rou- 
tine is not very long. 
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7. Warm restart 

E37B - E393 

Function: Clears all channels and resets pointers to default 
value. Will not disturb any program in memory. 

8. Power up message 

E45F - E4FF 

Function: The wonderful power up message comes from 
here. 

9. Clear screen 

E544 - E565 

Function: This routine can be used to clear the screen, but 
there are other ways to achieve the same thing. 

10. Set up screen print 
E691 - E6B5 

Function: Arranges the screen for printing. 

11. Advance cursor 
E6B6 - E6EC 

Function: Advances cursor one position. 

12. Retreat cursor 
E6ED - E700 

Function: Cursor back one position. 
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13. Back on to previous line 
E701 - E715 

Function: Cursor up one line. 

14. Output to screen 

E716 - E879 

Function: This routine can be used to set up and place 
characters on the screen. Needs careful study. 

15. Input 
F157 - F198 

Function: Use this routine directly to get data from devices. 

16. Find any tape header 

F72C - F769 

Function: Will get tape header and can be very useful. Why 
not experiment a little! 

17. Write tape header 

F76A - F7CF 

Function: Using this routine, a header can be written (rather 
than using the save routine to write the header). 

18. Kill tape motor 
FCCA - FCDO 

Function: Stops tape motor. 



118 



19. Power reset entry point 

FCE2 - FD01 

Function: Resets all pointers and restores the 64 to default 
values. This is not the same as switching the 64 
off and back on. Any program in RAM will have 
pointers removed by this routine, but the code 
will still be there! 

Vectors 

Below is a list of the main vectors with their labels and addresses. Also 
given are the default addresses they point to. 

1. IERROR 

Print Basic error message link 

$0300 

2. IMAIN 

Basic warm start 
$0302 

3. ICRNCH 

Crunch Basic token link 
$0304 

4. IQPLOP 

Print token link 
$0306 

5. IGONE 

Start new Basic code link 
$0308 
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6. IEVAL 

Get arithmetic link 

$030A 

7. USR function jump 
$0310 default value (B248) 

8. CINV 

Hardware IRQ interrupt 
$8314 default value (EA31) 

9. CBINV 

BRK instruction interrupt 
$0316 default value (FE66) 
10.NMINV 

Non-maskable interrupt 
$0318 default value (FE47) 

11.IOPEN 

Kernal OPEN routine 
$031ft default value (F34A) 

12.ICLOSE 

Kernal CLOSE routine 
$031C default value (F291) 
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13. ICHKIN 

Kernal CHKIN routine 
$031 E default value (F20E) 

14.ICK0UT 

Kernal CHKOUT routine 
$8320 default value (F2500) 

15.ICLRCH 

Kernal CLRCHN routine 
$0322 default value (F333) 

16.IBASIN 

Kernal CHRIN routine 
$0324 default value (F157) 

17.IBASOUT 

Kernal CHROUT routine 
$0326 default value (F1CA) 

18. ISTOP 

Kernal STOP routine 
$0328 default value (F6ED) 

19. IGETIN 

Kernal GETIN routine 
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$032A default value (F13E) 

20. ICLALL 

Kernal CLALL routine 
$032C default value (F32F) 

21.USRCMD 

User defined vector 
$032E default value (FE66) 

22.ILOAD 

Kernal LOAD routine 
$8330 default value (F4A5) 

23. 1 SAVE 

Kernal SAVE routine 
$0332 default value (F5ED) 
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6. 64 to FX-80 



This chapter deals with the Epson FX-80 in some detail. The justification 
for this is the popularity of the Epson range and the program techniques 
needed to use them. The only advantage of Commodore's own printers 
is their ability to display control characters. 

Perhaps this chapter will encourage Commodore to make a fast and 
more flexible printer that competes in quality and price with the FX-80. 
It is reproduced here by kind permission of Commodore User, where 
it originally appeared, and Chris Durham; my thanks for their co- 
operation. The article and the program have simply been reproduced 
as they were printed. The program demonstrates clearly the flexibility 
and quality of the FX-80. 



Downloading the character set 

The main advantage of a Commodore printer is its ability to reproduce 
the graphics and the control characters in listings and printouts. Most 
non-Commodore printers either print nothing or something that looks 
like Greek letters. Neither of these are really desirable or acceptable, 
and they are of course impossible to read. 

By using the FX-80's ability to download a user-defined character set, 
we can make the FX-80 produce the complete Commodore character 
set. 

What is needed is a fancy bit of programming to pass the 64's ROM- 
based characters to the FX-80. This is not quite as simple as it may 
sound, as the 64 builds up the characters row by row. The FX-80, on 
the other hand, builds them up column by column. If you were to try 
passing the data for the character set to the FX-80 as it is held normally, 
you would end up with all the characters lying flat on their backs! 

The program given here illustrates how to convert the characters so 
that they appear the right way around and how to download them 
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to the FX-80. The program contains some screen messages and 
prompts. The messages double as progress reports since the program 
takes a couple of minutes to complete. Of course you will only need 
to run the program once before using the FX-80, and the Commodore 
character set will remain in the FX-80 until it is switched off. 

Instructions are included on how to select either the standard Epson 
character set or the Commodore character set. This can be done from 
program or direct mode. 

There are a number of points to note before using this program. First, 
the maximum number of adjacent horizontal dots in a printer character 
is six. Some Commodore characters, like the heart or the spade, use 
seven horizontal dots on the TV screen. These will be truncated when 
printed, and the only way to avoid this is to design your own characters 
for these symbols. 

Secondly, there seems to be no way of replacing the printer control 
codes in character positions 18-20 inclusive. This means that the 
character codes for HOME, REV ON, and INSERT cannot be printed, 
since they occupy these character positions in the Commodore ASCII 
set. Thirdly, because both upper and lower case characters are held 
in the printer, there is not enough room for reversed characters as well. 
Finally, the 'zero font' switch on the printer must be set to the off 
position. 

Within these constraints this program should at least provide read- 
able listings. 

10 REM ******************************************* 

20 REM PROGRAM TO DOWNLOAD COMMODORE CHARACTER SET 

30 REM TO AN EPSON FX-80 PRINTER - BY CHRIS DURHAM 

40 REM ******************************************* 

45 P0KE52,152:P0KE56,152:CLR:REM RESERVE SPACE IN 

MEMORY FOR CHARACTER SET 

47 POKE53280 ,14s P0KE5328 1 , 6 

50 PR I NT "Li SWOP CHAR SET INTO MAIN MEMORY" 

60 CS=53248sCL=CS+512:MI_=3B913 

70 PRINTCHR*(142):REM SWITCH TO UPPER CASE 

80 POKE 56333, 127: REM TURN OFF KEYSCAN INTERRUPT T 

IMER 

90 POKE 1,51s REM SWITCH IN CHARACTER SET 

95 FOR A - TO 51 Is POKE ML+A,PEEK <CL+A)sNEXT AsR 

EM TRANSFER CHARACTERS 

100 ML=ML+512sF0R CH=1 TO 27 

105 READ XsFOR A-0 TO 7 

110 IF CH<25 THEN POKE ML+A , 255-PEEK (CS+<X*8> +A> s 
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REM TURN INTO RESERVED CHARS 

115 IF CH>=25 THEN POKE ML+A.PEEK <CS+ (X*8) +A) s RE 

M CHARS NOT IN EPSON CHAR SET 

120 NEXT AtML=ML+BsNEXT CH 

125 POKE l,55sREM SWITCH IN I/O 

130 POKE 56333, 129 i REM TURN ON KEYSCAN INTERRUPT T 

IMER 

135 PRINT" CONVERT CHARS TO PRINTER FORMAT^" 

137 DIM B1(B)«F0R A-0 TO 7: Bl (A+l >-2~A:NEXT A 

140 PL«39700sMP-3B913 

145 FOR Y-PL TO PL+546 » POKEY, 0« NEXT Y 

150 FOR Y-PL TO PL+540 STEP 6 

160 FOR A-7 TO 2 STEP -1 

170 FOR B-0 TO 7 

180 IF (PEEK (MP+B) AND Bl (A) ) THEN POKE (Y+7-A) ,P 

EEK <Y+7-A) OR Bl (8-B) 

190 NEXT B,AsMP«MP+8:NEXT Y 

200 0PEN4.4 

210 REM TRANSFER EXISTING EPSON CHARACTER SET TO U 

SER AREA 

215 PRINT#4,CHR*(27)j"R"jCHR*(0)jsREM SELECT USA S 

ET 

220 PRINT#4,CHR*(27)5":";CHR*(0);CHR*(0);CHR*(0)5 

225 PRINT" UMOW TRANSFER COMMODORE CHARACTERS^" 

227 FOR L-l TO 2lREADFC,LC 

230 PRINT#4,CHR*<27>5 ,, fc"}CHR*<0>5CHR*<FC);CHR*(LC) 

; 

235 FOR CH-0 TO 31 sPRINT#4,CHR* < 139) ; 

240 FOR A-0 TO 4 

250 PR I NT#4 , CHR* < PEEK ( Pl_+ ( CH#6 ) +A ) > ; : PR I NT#4 , CHR* ( 

O); 

255 NEXT A:PRINT#4,CHR*(PEEK(PL+(CH*6)+5>>5 

260 NEXT CH: PL-PL+ (32*6) I NEXT L 

262 REM ALLOW ALL ASCII CODES (O - 255) TO BE PR IN 

TABLE 

264 PRINT#4,CHR* <27) ; " I " > CHR* ( 1 ) ; CHR* (27) 5 "6" ; 

266 PRINT" NOW TRANSFER CONTROL / COLOUR CODES*;" 

268 REM ALSO INCLUDES CHARACTERS NOT IN STANDARD E 

PSON SET 

270 PL-40084iF0R CH-0 TO 26 

280 READ CP 

290 PRINT#4,CHR* (27) 5 "&" ; CHR* (O) ; CHR* (CP) ; CHR* (CP) 

300 PRINT#4,CHR*(139); 

310 FOR A=0 TO 4 

320 PR I NT#4 , CHR* ( PEEK ( PL+ ( CH*6 ) +A ) ) ; : PR I NT#4 , CHR* ( 

0); 

325 NEXT A:PRINT#4,CHR*(PEEK(PL+(CH*6)+5))5 

330 NEXT CH 

335 REM SWITCH TO USER DEFINED CHARACTER SET 

340 PRINT#4,CHR* (27) ; "7." 5 CHR* ( 1 > ; CHR* (O) ; 

125 



350 PRINT#4,CHR*<27)s"E"; : REM SET EMPHASISED MODE 

360 PRINT#4:CL0SE4 

370 PRINIT" L^yj: CHARACTER SET COMPLETE" : PR I NT 

375 PRINT" COMMODORE CHARACTER SET SELECT I ONi" 

377 PRINT" *****************»»*****♦♦**■*****;■:" 

380 PRINT" TO SELECT EPSON CHAR SET, TYPE:" 

390 PR I NT " JS. PR I NT#4 , CHR* < 27 ) ; " CHR* ( 34 > " 7. " CHR* ( 34 

) " 5 CHR* <0> ; CHR* (0) ; .Sii" 

400 PRINT" TO RE-SELECT COMMODORE CHAR SET TYPE:" 

410 PRINT-iS PRINT#4,CHR*(27>;"CHR*(34> n, /."CHR*<34 

) " ; CHR* ( 1 > ; CHR* (0) ; M!&" 

420 PRINT" ENSURIN6 STREAM 4 IS OPEN FOR PRINT 

OUTPUT." 
430 P0KE56 , 1 60 : P0KE52 , 1 60 : CLR : END 

lOOO DATA 80,5,28,95,92,30,31,94,65,85,86,87 

1010 DATA 88,89,90,91,18,70,83,19,81,17,66,29,28,3 

1,94 

1015 DATA 192,223,160,191 

1020 DATA 144,5,28,159,156,30,31,158,129,149,150,1 

51 

1030 DATA 152,153,154,155,18,146,147,19,145,17,157 

,29,92,95,255 

READY. 
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7. General Utilities, Hints and 

Tips 



Reserved words 

For those of you unfamiliar with the term 'reserved words', it simply 
refers to the 64's Basic commands and instructions. This includes all 
I/O commands, such as 'OPEN' or 'LOAD'. 

The point about reserved words is that they cannot be used in programs 
except in their legal sense. This means that they may not be used as 
variables, etc. For example, the statement 'FOR ST = 1 TO 10' is illegal 
since ST is a reserved word for the current I/O status of the 64. 

However, it is possible to reconfigure the 64 completely in terms of 
its reserved words. This is done by copying the Basic ROM (from $A000 
to BFFF hex) into the underlying RAM. When you have done this the 
reserved words can be replaced with user-defined words. 

Once you have set up your own reserved words the normal ones will 
no longer be recognised and can be used as variables, etc. The 
replacement words become reserved words and must be used for the 
purpose for which they were defined. 



Why change them? 

Well, it is fun to a have a customised version of Basic, but it may have 
more serious implications in aiding program protection, for example. 
Once a customised version of Basic has been set the commands and 
their tokens will be accepted. 

The problem is remembering what your replacement words are. I 
suggest that you write them down on paper or create a file to disk 
or tape containing the replacement words you choose. 
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Customising Basic 

This is quite simple. As described above, the Basic ROM must first 
be copied and switched out. To do this I have written a small machine 
code routine and mixed it with the Basic program. This means that 
the program must be entered exactly as shown or the machine code 
will not work. 

The easiest way to enter and save this program is to load and RUN 
Supermon, and then intialise and new it. The Basic program can then 
be entered but not tested. The next step is to re-enter Supermon with 
SYS8 < return > and enter the code from $0E00 to $0E1 F hex. Staying 
in Supermon, the program should then be saved with 
S" < return > ",08,0801 ,0E20 

This will give you a copy of the program which can be tested and used. 
Remember to save any version that has been corrected or altered. 

Although I said earlier that this program was fairly simple, it does 
deserve a bit of explanation. The first line of the Basic program sets 
the screen and border colours before printing a message, which you 
should not get much time to read if your version is working. If it stays 
on the screen for more than a few seconds, then there is an error and 
your 64 may well have gone to sleep. To awaken it you may need to 
switch off and on again. You did remember to save it, didn't you? 

The machine code is accessed at line 120, and the time taken to 
evaluate the SYS takes longer than the routine does to complete. The 
machine code routine stores the start of the Basic ROM in FB and 
FC hex and then, using the Y register as an offset, stores the ROM 
in the underlying RAM. 

The high byte of the ROM address is incremented after completion 
of each page until it reaches $C000 hex, the end of the Basic ROM 
and the start of the alternate RAM. The Basic ROM is then switched 
out by placing $36 hex 54 decimal into location 1 . Finally control is 
handed back to the Basic program. 

The Basic program continues execution and asks for the reserved word 
you wish to change. Once the word has been selected an end of word 
marker is added and the program scans through the reserved words 
for the one chosen. If it is not found an error message is displayed. 
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Once the word to be changed has been found a replacement is 
requested. It must be the same length as the word it is replacing and 
must not duplicate any other reserved word currently in use. The 
program lastly requests another word or finishes the program. 

Once you have left the program you may use your customised version 
of Basic as you would the normal Basic. This includes saving and 
loading programs. You will need to re-initialise or change your version 
of Basic after resetting the 64. You may switch between the normal 
and customised versions with 'POKE 1 ,n' where n equals 55 for normal 
and 54 for the customised version. 

Try thinking of some uses for the program. A rude version of Basic 
would save you swearing at the 64, as it could do it for you. 

100 POKE53280,6:POKE53281,7:FRINT"L&£iii£&i« READ I 

NB ROM INTO RAM PLEASE WAIT " 

110 REM *** LOOP TO COPY ROM INTO RAM 

120 SYS3584 

130 REM *** TAKE OUT BASIC ROM 

160 POKE 1,54 

170 REM *** PUT RESERVED WORDS INTO R* 

ISO JhiPllT'-JlfM-j-j-j-J-J-J-S. ^RESERVED WORD- ";R0* 

185 PR T NT '■ :i:i:i:r.i:iLiHH JLi: SEARCHING FOR WORD 

II 

190 REM *** SET TERMINATOR MARKER ON LAST BYTE OF 

STRING 

200 RO*=LEFT* ( RO* , LEN ( RO* > - 1 > +CHR* < ASC ( R 1 SHT* < RO* , 

1))+128) 

210 REM *** ROUTINE TO SEARCH FOR RESERVED WORD 

220 S0SUB390 

230 IFFL=OTHENPRINT"L- itiJMOT FOUND" ":F 

ORDE= 1 T04O00 : NEXT : B0T0330 

240 T MPI IT " Jj-.r_,;fjjJjJj: 3Y0UR WORD <SAME LENBTH>S 

" 5 US* 
250 REM *** CHECK LENGTH OF WORDS ARE THE SAME 
260 IFLEN<US*>OLEN<RO*>THEN240 
270 REM *** ADD TERMINATOR 

280 US*=LEFT* ( US* , LEN ( US* ) - 1 ) +CHR* ( ASC < R 1 8HT* ( US* , 
1) )+128) 

290 REM *** LOOP TO POKE IN NEW WORD 
300 F0RJ=1T0LEN(US*) 
310 P0KEH0+J-1,ASC(MID*(US*,J,1)> 
320 NEXT 

330 PRINT-i^J&itL ANOTHER WORD <Y/N> " 
340 BETA* : I FA*< > " Y " ANDA*< > " N " THEN340 
350 IFA*="N"THENEND 
360 REM *** ANOTHER WORD 
370 B0T0180 
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380 REM *** START ADDRESS OF ROM 

390 HO-40960 

400 REM *** SET FIRST CHARACTER 

410 C«ASC<MID*(R0*,1,1>> 

420 REM *** IF FIRST CHARACTER MATCHES CHECK OTHER 

S 

430 IFPEEK(H0)-CTHEN510 

440 REM *** LOOK AT NEXT ROM POSITION 

450 HO-HO+1 

460 REM *** CHECK FOR END OF WORD TABLE IN ROM 

470 I FHO= >42000THENFL-0 » RETURN 

480 REM *** STARTS NEXT CHECK 

490 B0T0410 

500 REM *** SET POINTER TO POSITION OF SECOND CHAR 

ACTER 

510 HO-HO+1 

520 REM »*# THIS LOOP CHECKS THAT THE REST OF THE 

CHAR. 'S MATCH 

530 F0RJ=2TQLEN<R0*> 

540 REM *** CHECK EACH CHARACTER 

550 IFPEEK CHO+J-2) < >ASC (MID* <R0*, J , 1 ) ) THEN410 

560 NEXT 

570 REM *** SET POINTER TO START OF WORD AND SET F 

OUND FLAG 

580 HO-HO-lsFL— 1 

590 RETURN 



B* 

PC SR AC XR YR SP 
-5 0008 F0 C7 00 40 F6 



0E00 A9 00 LDA #*00 

0E02 85 FB STA *FB 

0E04 A9 A0 LDA #*A0 

0E06 85 FC STA *FC 

0E08 A0 00 LDY #*00 

0E0A Bl FB LDA <*FB) ,Y 

0E0C 91 FB STA <*FB) ,Y 

0E0E CB I NY 

0E0F D0 F9 BNE *0E0A 

0E11 E6 FC INC *FC 

0E13 A5 FC LDA *FC 

0E15 C9 C0 CMP #*C0 

0E17 D0 EF BNE *0E08 

0E19 D0 ED BNE *0E08 

0E1B A9 36 LDA #*36 

0E1D 85 01 STA *01 

0E1F 60 RTS 
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. I0E00 A9 00 85 FB A9 A0 85 FC 
. 10E08 A0 00 Bl FB 91 FB CB D0 
. I0E10 F9 E6 FC A5 FC C9 C0 D0 
. 10E18 EF D0 ED A9 36 85 01 60 



Both sides! 



Users of the 1541 will be familiar with the trip to get more disks. 
Wouldn't it be pleasant to use both sides of your disk? 

You will be pleased to know that not only is it possible to use both 
sides of a single disk, but each side can be formatted on a different 
drive. To do this you will need to cut a duplicate notch in your diskette 
carefully or the drive will not write to it. 

Having done this you can use both sides of the disk: just format the 
reverse side in the usual way. This procedure is definitely not 
recommended, but it seems to work (most of the time). I am not quite 
sure why it works, so if any of you know or have an idea on the subject 
I would be pleased to hear from you. 

Joysticks 

Two short routines to aid joystick control are given here. Nothing fancy, 
but they should give you the general idea. 

First, a routine that will detect and print the direction in which the stick 
was moved. 

10 POKE 56322,224 

28 J=PEEK (56320) 

30 IF CJAND1)=0 THEN PRINT"GOING UP" 

40 IF <JAND2>=0 THEN PRINT"DOWN WE GO" 

50 IF (JAND4)=0 THEN PRINT"T0 THE LEFT" 

60 IF CJflND8>=0 THEN PRINT"N0N THE RIGHT" 

70 IF CJAND16)=0 THEN PRINT"UNDER FIRE" 
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80 GOTO20 

This simply returns the current direction of the joystick. 

The second routine might be more suitable for inclusion in user 
programs, but also serves as a good demo. 



10 PRINTCHR*<147) 

20 J -PEEK (56320) 

30 PRINT" CSH V3"jCHR*<157>> 

40 IF<JANDl)«0THENPRINTCHR*(20)j" "jCHR*<145>j 

30 I F ( J AND2 ) "0THENPR I NTCHR* < 20 ) j " " ; CHR* < 1 7 > ; 

60 I F < J AND4 > -0THENPR I NTCHR* < 20 ) ; " " ; CHR* ( 1 57 ) j 

70 I F ( J AND8 ) -0THENPR I NTCHR* < 20 ) 5 " " j CHR* ( 29 ) ; 

80 IF(JAND16)-0THEIMPRINT"Q"jCHR*(157)| 

90 GOTO20 



The program places the character shift V on the screen and moves 
it in the direction of the stick. If the fire button is pressed the character 
shift Q is superimposed over shift V. As it stands it is only good for 
a demo, but it could easily be converted for use in your programs. 

Input routine 

This short routine will clear the screen, place an asterisk on it and wait 
for an input. Pressing a key will place the appropriate character on 
the screen with the asterisk on the rightmost of the last character input. 
When a carriage return is found the program exits. 

The program works fine as it stands, but needs to be adapted for your 
particular needs if you intend to use it from your programs. It can easily 
be adapted for use as a protected input for adventure games. The 
routine uses the following Kernal routines: 

CHROUT (*FFD2) output character to channel 

GETIN ($FFE4) wait for keypress, using the SCNKY routine. 

B* 

PC SR AC XR YR SP 
. 5 0008 30 00 00 00 F6 

C000 A9 93 LDA #*93 
C002 20 02 FF JSR *FFD2 
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C005 A9 
C007 20 
C00A 20 
C00D C9 
C00F F0 
C011 C9 
C013 F0 
C01S 8D 
C018 A9 
C01A 20 
C01D AD 
C020 20 
C023 4C 
C026 60 



2A 

D2 FF 
E4 FF 
00 
F9 
0D 
11 

27 C0 
14 

D2 FF 
27 C0 
D2 FF 
05 C0 



LDA 
JSR 
JSR 
CMP 
BEQ 
CMP 
BEQ 
BTA 
LDA 
JSR 
LDA 
JSR 
JMP 
RTS 



#*2A 

*FFD2 

♦FFE4 

tt*00 

*C00A 

**0D 

*C026 

*C027 

#*14 

*FFD2 

*C027 

*FFD2 

*C005 



. :C000 A9 93 20 D2 FF A9 2A 20 

. sC008 D2 FF 20 E4 FF C9 00 F0 

. SC010 F9 C9 0D F0 11 8D 27 CO 

. :C01S A9 14 20 D2 FF AD 27 C0 

. :C020 20 D2 FF 4C 05 C0 60 00 



Cursor control 



By now most people will be familiar with the techniques of positioning 
the cursor from Basic, but it is also possible to write a very short routine 
in machine code to give you excellent control of the cursor from your 
Basic programs. 

This routine sits at $C000 hex, but could easily be relocated to any 
free part of memory. So, instead of the following: 

10 A*="[25 CDH40CR]" 

20B*=LEFT* (ft$,N) 

etc. 

we can simply enter the screen co-ordinates for the next cursor position 
followed by the characters to be placed there. 
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The machine code part of the routine first checks for a comma ($AEFD) 
and then gets a byte ($B79E). The byte is placed on the stack and 
the next byte is input. This gives the row and column co-ordinates 
for the position of the cursor. The cursor is then positioned using the 
Kernal routine PLOT ($FFF0), and the routine checks for a second 
comma. A jump to the PRINT routine displays your message at the 
selected co-ordinates. 

C0O0 JSR $AEFD 

C003 JSR $B79E 

C006TXA 

C007 PHA 

C008 JSR $AEFD 

COOB JSR SB79E 

COOE PLA 

COOF TAY 

C010 CLC 

C011 JSR $FFF0 

COM JSR $AEFD 

C017 JMP $AAA4 

The Basic subroutine to call the above is fairly simple and can easily 
be placed within your programs. The first line sets the SYS address, 
the next three lines select co-ordinates for the cursor and messages 
to be displayed. The fifth line is a delay loop and the last two lines 
display a message and wait for a key press to exit the routine. 

63808 CP=49152 

63010 SYSCP, 10, 10, "DEMONSTRATES" 

63020 SVSCP, 10, 20, "CURSOR CONTROL" 

63030 SYSCP, 10,0, "THIS PROGRAM" 
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63040 FOR PAUSE = 1 TO 2000 = NEXT PAUSE 
63050 SVSCP,10,5,"[ON HIT1ANY KEYEOFF]" 
63060 GETA* = IF A$ = "" THEN 63048 

String memory 

Setting up strings from a program in the following way: 

DIM EX*C900) •• FOR S = 1 TO 900 = EX$CS> = CHR$<82) = NEXT 

will store the strings in the string storage area were they remain until 
memory runs out because of 'dead' strings or the 64 does a forced 
garbage collection (PRINT FRE(O)). It is of course almost impossible 
to calculate when your 64 will need to perform a garbage collection 
and it can take a considerable time to do. 

It is therefore advisable to avoid strings that use CHR$ or STR$, and 
avoid as much as possible the storage of strings that will be discarded 
but not recovered. The two Basic commands INPUT and GET will also 
use the string storage area and should have their string variables cleared 
after use in your programs. So the following: 

1 GET A* = IF A$="VES" THEN etc 

could be cleared after use by setting A$ to a null string (A$ = ""h 

Using strings that are read in from data statements or assigning string 
variables such as EX$(S) = "n" (where n is the character required), 
uses the strings directly from the program and does not use the string 
storage area. This is a much more economical use of memory. 

In general, strings should not be used repeatedly without being set 
to a null string in between uses. If there is a routine which builds up 
a block of strings and then discards them, take the first possible chance 
to perform a FRE(O). This should save memory and time. 

Hex to Dec 

Instead of reproducing the usual hexadecimal to decimal conversion 
table I have decided to include a Basic program that will convert hex 
to decimal or decimal to hex and display it on the screen in an easily 
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readable form. The program was originally written for the Pet by Pete 
Gabor; I have updated and converted it for the 64. My thanks to Pete. 

The program uses data statements to set up two boxes in the middle 
of the screen and one at the bottom of the screen. The two smaller 
boxes are used to display the number to be converted and its equal 
in hex or decimal. The box at the bottom of the screen is the command 
area. It is used to display the mode you are in (hex to decimal or decimal 
to hex). 

To quit the program use the HOME key (unshifted). I am afraid that 
you will have to bear with me when you get to entering the data 
statements, as they are all with the shift or logo key. That is about 
it for this program. The result is a very readable and easy to use 
converter. 

IB MD-0iM*<0>«"DEC -> HEX"iM*U)«"HEX -> DEC" 

20 P0*-"CHME3C7 CD3" 

30 Pi*-P0*+»C7 CDK15 CR3" 

40 P2*-P1*+'T.5 CD3"iP0*-P0*+"C6 CR3" 

30 PRINT" r.CLR3"j 

60 F0RK-1T023 

70 READA*iPRINTA* 

80 NEXT 

90 P*-""iN-0 

100 PRINTP1*| 

110 PRINT" CCLH0N3 C0FFK7 CL3"| 

1 20 BETC* i I FC*« " " THEN 1 20 

130 OASC<C*> 

140 IFO13THEN240 

150 IFO20THEN90 

160 IFC-19THENPRINT"CCLR3"«END 

1 70 I FC-64THENMD- 1 -MD I PR I NTP2*M* ( MD ) 1 0OTO90 

1 80 I FC< 480RC >70OR ( MD-0ANDC >S7 ) THEN 1 20 

190 IFLEN<P*)>6THEN120 

200 N- 1 6*N+C-4B+ < C >57 ) *7 

210 PRINTC*} 

220 P*-P*+C* 

230 GOTO 120 

240 P*-RIQHT*(" "+P*,7> 

250 IFMDTHEN330 

260 D*-P* i D-VAL ( P* ) i H*- " " I A-D 

270 FORK- 1 T06 1 A-A/ 1 6 1 I FA< 1 THEN290 

280 NEXT 

290 FORJ-KT01STEP-1 

300 HX-D/16 A (J-l)iD-D-16 A (J-l)*Hy. 

310 H*-H*+CHR*<HX+48-<HJC>9>«7> iNEXT 

320 H*-RIBHT*(" "+H*,7) IQOTO350 

330 D*-R I BHT* < " " +STR* < N ) , 7 ) 

340 H*-P*i IFN>999999999 THEND*-" ***##»#» 
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350 PRINTP0*H*j 
360 0OTO90 
370 DATA" 
380 DATA" 



C13 CR3"}D* 

C21 LO 03" 

CON 3* HEX-DEX CONVERTER *COFF3 



390 DATA 
400 DATA 
410 DATA 
420 DATA 
430 DATA 
CSH 03 CS 
440 DATA 

H3 

450 DATA 
CSH L3C5 
460 DATA 
470 DATA 
480 DATA 
490 DATA 
500 DATA 
510 DATA 
520 DATA 
530 DATA 
540 DATA 
550 DATA 
560 DATA 
570 DATA 
580 DATA 
590 DATA 
C0FF3 TO 
600 DATA 
610 DATA 



HEX DECIMAL" 

CSH 03 C5 LO Y3CSH P3 
LO Y3CBH P3" 

CLO H3 CLO N3 CLO 

CLO N3" 

CSH L3C5 LO P3C8H 03 
LO P3C8H03" 



INPUT" 
CSH 03C7 LO Y3C8H P3" 
CLO H3 CLO N3" 
CSH L3C5 LO P3C8H 03" 

II II 
II II 

CSH 03C11 LO Y3CSH P3" 
" INPUT MODEl CLO H3 CLO N3" 

CSH L3C11 LO P3CSH 03" 
CLO P3 C3 LO P3" 

"PRESS CON30COFF3 TO CHAN8E MODE| C0N3HME 
QUIT PSM" 

II II 



Code to Basic 

A short routine is included here to convert machine code routines to 
Basic data statements. In essence this is quite simple: each address 
of the code is looked at and the value is placed in a data statement. 

The difficult part of the process is to create the new lines for the data 
statements and the data statements themselves from within a Basic 
program. The program makes extensive use of the keyboard buffer 
to create the next Basic line number, the data statement and the data. 

The information is set up on each pass through the program and 
displayed on the screen. The program then places two carriage returns 
into the keyboard buffer and exits. The new line is then created and 
the program re-entered at line 200. 
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A closer look at the program may enlighten you somewhat. The 
program first requires the first new line number. I advise a number 
above 380 or you will write over the program. The increment between 
lines is requested and then the start and end addresses of the machine 
code program. Don't forget to have the machine code in memory at 
this point! 

When you have given the program this information, it is converted 
into variables, and the low and high byte of the start and end addresses 
are stored. The line number and the data statement are then printed. 
The section of code is peeked, converted into data and printed. The 
statement GOTO 200 is then displayed on the screen. The current line 
number is incremented using the step you gave and the variables are 
set to point at the next section of code. 

At this point you have on the screen a line number, the data statement 
and a line of data, but to transform this into a Basic line number a 
carriage return must be performed on it. In order to achieve this the 
program places 2 into location 198 (the counter for the number of 
characters in the buffer) and two carriage returns into the keyboard 
buffer, and stops the program. 

The first carriage return is executed over the new line and the second 
one over the GOTO 200 statement which re-enters the program at line 
200! The program then checks for the end of code addresses and stops 
if they have been reached, but continues to create new lines, data 
statements and data if they have not been reached. 

This program is good enough. It is fairly quick and will produce data 
from huge machine code programs! 

100 PR I NT "CCLR 3 CON 3 CREATE DEC. DATA STATEMENTS FR 
OM M/C. " 

110 PRINT" CCD3 FOR THE CON3CBM64COFF3 " 

120 INPUT" CHMEK5 CD 3 START LINE NO.# C3 CL 
3"jS*iIFS*-" "THEN 120 

130 INPUT" CHME3C7 CD3 STEP C3 CL3"t T*. IFT*- 
" "THEN130 J 1*1*1-1* 

140 INPUT" CHME3C9 CD3 START ADD. DEC. C3 CL 
3"}B*iIFB*-" "THEN140 

150 INPUT"CHME3CU CD3 END ADD. DEC. C3 CL3 
"jE*HFE*«" "THEN150 

160 S«VAL<S*> iT-VAL(T*> iB-VAL<B*> iE-VAL<E*> 1F-B1L 

■F+6iPRINT"C4 CD3" 

170 P0KEB31,INT<E/236> 

1B0 P0KEB32,E-INT<E/236)*256 
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190 POKEB28,TiBOTO270 

200 T«PEEK<828> 

210 S«PEEK<S26)*256+PEEK<827) 

220 L-PEEK ( 829 ) *256+PEEK < 830 ) 

230 E-PEEK ( 83 1 ) #256+PEEK < 832 ) 

240 IFL>-ETHENEND 

250 F-L+llL-L+7 

260 print" can 

270 PR I NTS J 

280 PR I NT "DATA "; 

290 FORP-FTDLj PRINTMID* (STR* (PEEK <P) ) ,2) » " , " » i NEX 

TP 

300 PRINT" CCL3 " 

310 PRINT"8OTQ200C3 CU3"| 

320 POKE 1 98 , 2 1 P0KE63 1 , 1 3 1 P0KE632 , 1 3 

330 S-S+T 

340 P0KE826,INT<S/256) 

3S0 P0KE827 , S- I NT ( 8 / 256 ) *256 

360 P0KE829,INT(L/256) 

370 POKE830,L-INT(L/256)*256iEND 

380 END 



Hi- res 

Again my thanks go to our German friends for parts of the following 
routine. Essentially it sets up a hi-res screen and allows the user to 
PLOT, UNPLOT, COLOUR, DUMP and GOFF on the hi-res screen. 
I make no claim that this is a complete hi-res package, but it is well 
on the way. Its features include setting up a hi-res screen, clearing 
the screen, changing screen colours, inverting the screen, plotting and 
unplotting. The routine will also save users' screens on to tape or disk. 

The disassembly of the program looks a bit odd in places as it includes 
tables. You will need a monitor to enter this routine: Supermon will 
do nicely, or any other monitor that does not occupy the top part of 
the alternate RAM ($C000 to $C255), as this is where the program sits 
in memory. It could well be relocated, but this would take some time 
as there a quite a few jumps that would have to be changed by hand. 

Below is a list of the entry points into the routine and the entry points 
for the various subroutines: 

SYS 49152 ($C000 hex enters package, sets up and clears graph- 
ics screen) 
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(SYS 49155 $C003 hex clears graphics screen) 

SYS 49158 ($C006 hex sets the colour for the screen, e.g. SYS 
49158,7 sets the screen to yellow) 

SYS 49161 ($C009 hex inverts the graphics screen) 

SYS 49164 ($C00C hex plots a point, e.g. SYS 491 64, n1,n2 where 
n1 is in the range to 199 and n2 is in the range to 255) 

SYS 49167 ($C00F hex unplots a point: same format as SYS 49164) 

SYS 49170 ($C012 hex loads a previously saved screen from tape 
or disk, e.g. SYS 49170, "filename",dn where dn is 1 
for tape and 8 for disk) 

SYS 49173 ($C015 hex saves the graphics screen to tape or disk 
e.g. SYS 49173, "filename",dn) 

SYS 49176 ($C018 hex turns the graphics screen off and returns 
to normal screen) 

SYS 49179 ($C01 B hex will dump the contents of the hi-res screen 
to printer. Make sure you have one hooked up before 
calling this routine) 

Some subroutines could be added to this routine. First a routine to 
set up hi-res sprites; secondly a fill routine; and lastly a DRAW rou- 
tine would of course be very useful. 

The code sits in RAM from $C000 to $C055. The first part of the list- 
ing, $C000 to $C01B, is a jump table for the entry points of the rou- 
tines described above. 

Before using any of the wonderful features of this routine the hi-res 
screen must first be initialised. This is carried out by the code from 
SCO! t to $C03C hex. 

Before initialising the hi-res screen, the contents of $D01 1 hex 53265 
decimal and $D018 hex 53272 decimal are stored in order to reset the 
64 to its normal screen after use. The contents are then changed to 
™ up a hl " res screen - ,n Basic their equivalent would be POKE 
53265,59:POKE 53272,24. This sets up the hi-res screen, but it stiH 
needs to be cleared. 
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The usual shift HOME will not do for the hi-res screen. So a routine 
to clear the hi-res screen is included from $C03D to $C053 hex. It sets 
the start of the hi-res screen from $2000 hex 8192 decimal and places 
zeros in every location from $2000 hex to $3FFF, the end of the hi-res 
screen. In Basic this routine would look something like this: 

FOR SCREEN = 8192 TO 16383 = POKE SCREEN, = NEXT 

Next the colour has to be placed on the screen. The screen is cleared 
initially by the code from $C05A to $C070 hex, but after that is set 
by the user with the entry to the routine at $C054 hex. The equivalent 
in Basic would be: 

FOR COLOUR = 1024 TO 2823 = POKE COLOUR, 16 = NEXT 

We now have the same set up in Basic as the first three routines in 
code. They are position the screen, clear the screen and colour the 
screen. Indeed we now have an elementary Basic version which looks 
like this: 

10 POKE 53265, 59 = POKE 53272,24 

20 FOR SCREEN = 8192 TO 16383 

30 POKE SCREEN, 

40 NEXT SCREEN 

50 FOR COLOUR = 1024 TO 2823 

60 POKE COLOUR, 16 

70 NEXT COLOUR 

The next routine from $C071 to $C08A hex inverts the screen. This 
is done with the EOR instruction. Every location on the hi-res screen 
is EOR'd with $FF hex. 

The next routine at $C08B to $C107 hex will plot a point on the hi-res 
screen. To unplot a point we use the routine at $C08E to $C107. 

The routine from $C152 to $C1 61 hex loads a previously saved screen. 
This routine uses the LOAD Kernal routine at $FFD5 hex, and the rou- 
tine from $C1 62 to $C171 saves a screen using the perform save rou- 
tine $E544. The routine that sets the parameters for the load and save 
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is at $C13A to $C151 hex. 

The hi-res dump (for the FX-80 and with small adjustments other Ep- 
son printers, although there are plenty of hi-res dumps available for 
Commodore printers) is at $C180 to $C055. It scans the hi-res screen 
and dumps the contents to the FX-80. Although it is set up to dump 
the area from $2000 to $3FFF hex, it can easily be changed to look 
at another area. In fact the whole routine could be used to place a 
hi-res screen in any available memory. 



B* 



PC SR AC XR YR SP 
;0008 3(3 00 00 00 F6 



C000 4C 


IE 


C0 


JMP *C01E 


C003 4C 


3D 


C0 


JMP *C03D 


C006 4C 


54 


C0 


JMP *C054 


C009 4C 


71 


C0 


JMP *C071 


C00C 4C 


8B 


C0 


JMP *C0BB 


C00F 4C 


8E 


C0 


JMP *C0BE 


C012 4C 


52 


CI 


JMP *C152 


C015 4C 


3A 


CI 


JMP *C13A 


C018 4C 


62 


CI 


JMP *C162 


C01B 4C 


80 


CI 


JMP *C180 


C01E AD 


11 


D0 


LDA *D011 


C021 8D 


72 


CI 


STA *C172 


C024 AD 


18 


00 


LDA *D018 


C027 8D 


73 


CI 


STA *C173 


C02A A9 


3B 




LDA #*3B 


C02C 8D 


11 


D0 


STA *D011 


C02F A9 


18 




LDA #*1B 


C031 8D 


18 


D0 


STA *D01B 


C034 20 


3D 


C0 


JSR *C03D 


C037 A2 


10 




LDX «*10 


C039 20 


5A 


C0 


JSR *C03A 


C03C 60 






RT8 


C03O A0 


00 




LDY «*00 


C03F A9 


20 




LDA ««20 


C041 84 


FD 




STY *FD 


C043 83 


FE 




STA *FE 


C045 98 






TYA 


C046 91 


FD 




STA (*FD) , 


C048 C8 






I NY 


C049 D0 


FB 




BNE *C046 


C04B E6 


FE 




INC *FE 


C04D AS 


FE 




LDA *FE 


C04F C9 


4(3 




CMP #*40 


C051 00 


F2 




BNE *C045 


C053 60 






RTS 
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C054 20 FD 


AE 


JSR *AEFD 


C057 20 9E 


B7 


JSR *B79E 


C05A AS 00 




LDY #*00 


C05C A9 04 




LDA #*04 


C05E 84 FD 




STY *FD 


C060 85 FE 




STA *FE 


C062 8A 




TXA 


C063 91 FD 




STA (*FD),Y 


C06S C8 




I NY 


C066 D0 FB 




BNE *C063 


C06B E6 FE 




INC *FE 


C06A A5 FE 




LDA *FE 


C06C C9 08 




CMP #*0B 


C06E D0 F2 




BNE *C062 


C070 60 




RTS 


C071 A0 00 




LDY #*00 


C073 A9 20 




LDA #*20 


C075 84 FD 




STY *FD 


C077 85 FE 




STA *FE 


C079 Bl FD 




LDA <*FD),Y 


C07B 49 FF 




EOR #*FF 


C07D 91 FD 




STA <*FD),Y 


C07F C8 




I NY 


C080 D0 F7 




BNE *C079 


C082 E6 FE 




INC *FE 


C084 A5 FE 




LDA *FE 


C086 C9 40 




CMP tt*40 


C088 D0 €F 




BNE *C079 


C08A 60 




RTS 


C08B A9 00 




LDA #*00 


C08D 2C A9 


80 


BIT *80A9 


C090 85 97 




STA *97 


C092 20 FD 


AE 


JSR *AEFD 


C095 20 EB 


B7 


JSR *B7EB 


C098 E0 ca 




CPX #*C8 


C09A B0 EE 




BCS *C08A 


C09C A5 15 




LDA *15 


C09E C9 01 




CMP #*01 


C0A0 90 08 




BCC *C0AA 


C0A2 D0 E6 




BNE *C08A 


C0A4 AS 14 




LDA *14 


C0A6 C9 40 




CMP 4**40 


C0A8 B0 E0 




BCS *C08A 


C0AA 8A 




TXA 


C0AB 4A 




LSR 


C0AC 4A 




LSR 


C0AD 4A 




LSR 


C0AE A8 




TAY 


C0AF B9 21 


CI 


LDA *C121,Y 


C0B2 8D 75 


CI 


STA *C175 


C0B5 B9 08 


CI 


LDA *C10B,Y 


C0B8 8D 76 


CI 


STA *C176 
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C0BB 


8A 






TXA 




CBBC 


29 


07 




AND 


#*07 


C0BE 


IB 






CLC 




C0BF 


6D 


75 


CI 


ADC 


*C175 


C0C2 


8D 


75 


CI 


STA 


*C175 


C0C5 


A5 


14 




LDA 


$14 


C0C7 


29 


F8 




AND 


#*F8 


C0C9 


8D 


74 


CI 


STA 


*C174 


C0CC 


18 






CLC 




C0CD 


A9 


00 




LDA 


#*00 


C0CF 


6D 


75 


CI 


ADC 


*C175 


C0D2 


85 


FD 




STA 


*FD 


C0D4 


A9 


20 




LDA 


#*20 


C0O6 


6D 


76 


CI 


ADC 


*C176 


C0D9 


85 


FE 




STA 


*FE 


C0DB 


18 






CLC 




C0DC 


A5 


FD 




LDA 


*FD 


C0DE 


6D 


74 


CI 


ADC 


*C174 


C0E1 


85 


FD 




STA 


*FD 


C0E3 


A5 


FE 




LDA 


*FE 


C0E5 


65 


15 




ADC 


$15 


C0E7 


85 


FE 




STA 


*FE 


C0E9 


A5 


14 




LDA 


*14 


C0EB 


29 


07 




AND 


#407 


C0ED 


49 


07 




EOR 


#*07 


C0EF 


AA 






TAX 




C0F0 


A9 


01 




LDA 


#*01 


C0F2 


CA 






DEX 




C0F3 


30 


03 




BMI 


*C0F8 


C0F5 


0A 






ASL 




C0F6 


D0 


FA 




BNE 


*C0F2 


C0F8 


A0 


00 




LDY 


#*00 


C0FA 


24 


97 




BIT 


*97 


C0FC 


10 


05 




BPL 


*C103 


C0FE 


49 


FF 




EOR 


#*FF 


C100 


31 


FD 




AND 


(*FD) ,Y 


C102 


2C 


11 


FD 


BIT 


*FD11 


C105 


91 


FD 




STA 


<*FD) ,Y 


C107 


60 






RTS 




C108 


00 






BRK 




C109 


00 






BRK 




C10A 


01 


02 




QRA 


(*02,X) 


C10C 


03 






777 




C10D 


05 


06 




ORA 


*06 


C10F 


07 






??? 




cum 


08 






PHP 




cm 


0A 






ASL 




C112 


0B 






77? 




C113 


0C 






777 




CU4 


0D 


0F 


10 


ORA 


*100F 


C117 


11 


12 




ORA 


(*12) ,Y 


C119 


14 






??? 





144 



C11A 


15 


16 




ORA 


*16,X 


cue 


17 






??? 




CUD 


19 


IB 


1C 


ORA 


*1C1B,Y 


C120 


ID 


00 


40 


ORA 


*4000 , X 


C123 


80 






77? 




C124 


C0 


00 




CPY 


#*00 


C126 


40 






RTI 




C127 


80 






??? 




C128 


C0 


00 




CPY 


#*00 


C12A 


40 






RTI 




C12B 


80 






??? 




C12C 


C0 


00 




CPY 


#*00 


C12E 


40 






RTI 




C12F 


80 






??? 




C130 


C0 


00 




CPY 


#*00 


C132 


40 






RTI 




C133 


80 






??? 




C134 


C0 


00 




CPY 


#$00 


C136 


40 






RTI 




C137 


80 






??? 




C138 


C0 


00 




CPY 


#*00 


C13A 


20 


FD 


AE 


JSR 


*AEFD 


C13D 


20 


D4 


El 


JSR 


*E1D4 


C140 


A2 


00 




LDX 


#*00 


C142 


A0 


40 




LDY 


#*40 


C144 


A9 


00 




LDA 


#*00 


C146 


85 


FD 




STA 


*FD 


C148 


A9 


20 




LDA 


#$20 


C14A 


85 


FE 




STA 


*FE 


C14C 


A9 


FD 




LDA 


#*FD 


C14E 


20 


D8 


FF 


JSR 


*FFD8 


C151 


60 






RTS 




C152 


20 


FD 


AE 


JSR 


*AEFD 


C155 


20 


D4 


SI 


JSR 


*E1D4 


C158 


A9 


61 




LDA 


#*61 


C1SA 


85 


B9 




STA 


*B9 


CISC 


A9 


00 




LDA 


#*00 


C1SE 


20 


D5 


FF 


JSR 


♦FFD5 


C161 


60 






RTS 




C162 


AD 


72 


CI 


LDA 


*C172 


C165 


8D 


11 


D0 


STA 


*D011 


C168 


AD 


73 


CI 


LDA 


*C173 


C16B 


8D 


18 


D0 


STA 


*D018 


C16E 


20 


44 


E5 


JSR 


*E544 


C171 


60 






RTS 




C172 


00 






BRK 




C173 


00 






BRK 




C174 


00 






BRK 




C175 


00 






BRK 




C176 


00 






BRK 




C177 


00 






BRK 




C178 


00 






BRK 
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CI 79 00 BRK 

C17A 00 BRK 

C17B 00 BRK 

C17C 00 BRK 

C17D 00 BRK 

C17E 00 BRK 

C17F 00 BRK 

CI 80 48 PHA 

C181 4A LSR 

CI 82 48 PHA 

CI 83 98 TYA 

CI 84 48 PHA 

CI 85 08 PHP 

C186 A5 01 LDA *01 

CI 88 29 FE AND #*FE 

C18A 85 01 STA *01 

C18C A9 00 LDA **00 

CI BE AA TAX 

C18F AB TAY 

CI 90 20 BD FF JSR *FFBD 

CI 93 A9 04 LDA #*04 

CI 95 AA TAX 

CI 96 A0 FF LDY #*FF 

CI 98 20 BA FF JSR *FFBA 

C19B 20 C0 FF JSR *FFC0 

C19E A2 04 LDX #*04 

C1A0 20 C9 FF JSR *FFC9 

C1A3 A9 IB LDA #*1B 

C1A5 20 D2 FF JSR *FFD2 

C1A8 A9 41 LDA #*41 

C1AA 20 D2 FF JSR *FFD2 

CI AD A9 08 LDA #*08 

C1AF 20 D2 FF JSR *FFD2 

C1B2 A9 19 LDA #*19 

C1B4 85 FB STA *FB 

C1B6 A9 00 LDA #*00 

C1B8 85 F7 STA *F7 

C1BA A9 20 LDA #*20 

C1BC 85 F8 STA *FB 

C1BE A9 IB LDA #*1B 

C1C0 20 D2 FF JSR *FFD2 

C1C3 A9 4B LDA #*4B 

C1C5 20 D2 FF JSR *FFD2 

C1C8 A9 40 LDA #*40 

C1CA 20 D2 FF JSR *FFD2 

C1CD A9 01 LDA #*01 

C1CF 20 D2 FF JSR *FFD2 

C1D2 A9 28 LDA #*2B 

C1D4 8D 34 03 STA *0334 

C1D7 A5 F7 LDA *F7 

C1D9 85 F9 STA *F9 

C1DB A5 F8 LDA *FS 
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C1DD 85 FA 




STA *FA 


C1DF A9 08 




LDA #*08 


C1E1 85 FC 




STA *FC 


C1E3 A2 00 




LDX «*00 


C1E5 A0 01 




LDY **01 


C1E7 Al F9 




LDA (*F9,X) 


C1E9 99 75 


C2 


STA *C275,Y 


C1EC C6 FC 




DEC *FC 


C1EE F0 0F 




BEQ *C1FF 


C1F0 C8 




I NY 


C1F1 18 




CLC 


C1F2 A9 01 




LDA **01 


C1F4 65 F9 




ADC *F9 


C1F6 85 F9 




STA *F9 


C1F8 90 02 




BCC *C1FC 


C1FA E6 FA 




INC *FA 


C1FC 4C E7 


CI 


JMP *C1E7 


C1FF A9 08 




LDA #*08 


C201 85 FC 




STA *FC 


C203 A2 08 




LDX «*08 


C205 IE 75 


C2 


ASL *C275,X 


C208 6E 75 


C2 


ROR *C275 


C20B CA 




DEX 


C20C D0 F7 




BNE *C205 


C20E AD 75 


C2 


LDA *C275 


C211 20 D2 


FF 


JSR *FFD2 


C214 C6 FC 




DEC *FC 


C216 D0 EB 




BNE *C203 


C218 18 




CLC 


C219 A9 08 




LDA #*08 


C21B 65 F7 




ADC *F7 


C21D 85 F7 




STA *F7 


C21F 90 02 




BCC *C223 


C221 E6 FB 




INC *FS 


C223 CE 34 


03 


DEC *0334 


C226 F0 03 




BEQ *C22B 


C228 4C D7 


CI 


JMP *C1D7 


C22B A9 0D 




LDA #*0D 


C22D 20 D2 


FF 


JSR *FFD2 


C230 C6 FB 




DEC *FB 


C232 F0 03 




BEQ *C237 


C234 4C BE 


CI 


JMP *C1BE 


C237 A9 07 




LDA #*07 


C239 20 02 


FF 


JSR *FFD2 


C23C A9 IB 




LDA #*1B 


C23E 20 D2 


FF 


JSR *FFD2 


C241 A9 40 




LDA #*40 


C243 20 02 


FF 


JSR *FFD2 


C246 20 CC 


FF 


JSR *FFCC 


C249 A5 01 




LDA 401 


C24B 09 01 




DRA «*01 


C24D 85 01 




STA *01 
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C24F 28 


PLP 


C250 68 


PLA 


C251 AB 


TAY 


C252 68 


PLA 


C253 A8 


TAY 


C254 68 


PLA 


C255 60 


RTS 



. iCBBB 4C IE C0 4C 3D C0 4C 34 
. sC00B C0 4C 71 C0 4C 8B CO 4C 
. :C010 8E CO 4C 52 CI 4C 3A CI 
. sCBIB 4C 62 CI 4C 80 CI AD 11 
. IC02O D0 8D 72 CI AD 18 DO 8D 
. 8C02B 73 CI A9 3B 8D 11 DO A9 
. sC030 18 8D 18 DO 20 3D CO A2 
. IC038 10 20 5A CO 60 AO 00 A9 
.:C040 20 84 FD 85 FE 98 91 FD 
.sC048 C8 DO FB E6 FE A5 FE C9 
. ICO50 40 D0 F2 60 20 FD AE 20 
.»C058 9E B7 AO 00 A9 04 84 FD 
.1CO6O 85 FE BA 91 FD C8 DO FB 
. 1CB6B E6 FE A5 FE C9 08 DO F2 
. i CO70 60 AO 00 A9 20 84 FD 85 
.SC078 FE Bl FD 49 FF 91 FD C8 
.1CO8O DO F7 E6 FE A5 FE C9 40 
. iC088 DO EF 60 A9 00 2C A9 80 
. «CB9B 85 97 20 FD AE 20 EB B7 
. IC098 EB C8 B0 EE A5 15 C9 01 
. iCOAO 90 08 DO E6 A5 14 C9 40 
. jCOAB BO E0 8A 4A 4A 4A A8 B9 
.jCOBO 21 CI BD 75 CI B9 08 CI 
. i COBB BD 76 CI BA 29 07 IB 6D 
.sCOCO 75 CI 8D 75 CI A5 14 29 
.1COC8 FB BD 74 CI IB A9 00 6D 
. iCODO 75 CI B5 FD A9 20 6D 76 
.IC0D8 CI 85 FE 18 A5 FD 6D 74 
.sCOEO CI 85 FD A5 FE 65 15 85 
.:COEB FE A5 14 29 07 49 07 AA 
. sCBFB A9 01 CA 30 03 0A DO FA 
.:C0F8 AO 00 24 97 10 05 49 FF 
. IC10O 31 FD 2C 11 FD 91 FD 60 
. :C108 00 00 01 02 03 05 86 07 
.iCllO 08 OA OB 0C 0D BF IB 11 
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C118 12 14 15 16 17 19 IB 1C 
C120 ID 001 40 80 C0 00 40 80 
C128 C0 00 40 80 C0 00 40 80 
C130 CB 00 40 80 CO 00 40 80 
C138 C0 00 20 FD AE 20 D4 El 
C140 A2 00 A0 40 A9 00 85 FD 
C148 A9 20 85 FE A9 FD 20 D8 
C150 FF 60 20 FD AE 20 D4 El 
C158 A9 61 85 B9 A9 00 20 D5 
C160 FF 60 AD 72 CI BD 11 D0 
C168 AD 73 CI 8D 18 D0 20 44 
C170 E5 60 00 00 00 00 00 00 
C178 00 00 00 00 00 00 00 00 
C180 4B 4A 48 98 48 08 A5 01 
C1B8 29 FE 85 01 A9 00 AA A8 
C190 20 BD FF A9 04 AA A0 FF 
C198 20 BA FF 20 C0 FF A2 04 
C1A0 20 C9 FF A9 IB 20 D2 FF 
C1A8 A9 41 20 D2 FF A9 08 20 
C1B0 D2 FF A9 19 85 FB A9 00 
C1B8 85 F7 A9 20 85 F8 A9 IB 
C1C0 20 D2 FF A9 4B 20 D2 FF 
C1C8 A9 40 20 D2 FF A9 01 20 
C1D0 D2 FF A9 28 8D 34 03 A5 
C1D8 F7 85 F9 A5 FB 85 FA A9 
C1E0 08 85 FC A2 00 A0 01 Al 
C1EB F9 99 75 C2 C6 FC F0 0F 



C1F0 


C8 


18 


A9 


01 


65 


F9 


85 


F9 


C1F8 


90 


02 


E6 


FA 


4C 


E7 


CI 


A9 


C200 


08 


85 


FC 


A2 


08 


IE 


75 


C2 


C208 


6E 


75 


C2 


CA 


D0 


F7 


AD 


75 



C210 C2 20 D2 FF C6 FC D0 EB 
C218 18 A9 08 65 F7 85 F7 90 
C220 02 E6 FB CE 34 03 F0 03 
C228 4C D7 CI A9 0D 20 D2 FF 
C230 C6 FB F0 03 4C BE CI A9 
C23B 07 20 D2 FF A9 IB 20 D2 
C240 FF A9 40 20 D2 FF 20 CC 
C248 FF A5 01 09 01 85 01 28 
C250 68 A8 68 AB 68 60 00 00 



Borders 

Drawing a border in Basic is fairly simple but very slow. You could 
go and make your lunch while you wait! Just to prove the point, there 
is a Basic subroutine included here that will give you a border from 
Basic. 
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Basic border 

The line numbers start from 63000, but can be changed to suit your 
needs. The variable 'C is set to the difference between the normal 
screen and the colour memory 54272. The variable 'SC is set to the 
start of the screen. 

The next line places the first part of the border along the top of the 
screen using the reversed space character (160) and makes the bord- 
er yellow (7). The next loop places a yellow border along the bottom 
of the screen, and the last two loops place the two sides of the border 
by looping through the screen locations with a step of 40. This is of 
course fairly simple in Basic. The same thing in machine code is a lit- 
tle tricky although well worth the effort, if only for the speed. 

63000 O342728SO1024 

630 1 F0RA-SCT0SC+39 1 POKEA , 1 60 1 POKEA+C , 7 1 NE X T 

63020 FOR I -SC+40TO 1 9B3STEP40 1 POKE 1 , 1 60 1 POKE I +C , 7 : NE XT 

63030 FORI-8C+39TO1983STEP40«POKEI,i60iPOKEI+C,7iNEXT 

63040 FORA- 1 9B4TO2023 1 POKEA , 1 60 1 POKEA+C , 7 s NE X T 



Code border 

The program included here will do exactly the same as the Basic pro- 
gram, but so quickly that it is not really possible to see it happening. 

The code sits from $C0O0 to $C09E hex, but could of course be relo- 
cated to a place of your choice. First the border colour is set to blue 
and the screen colour to red. The screen is then cleared using the 
CHROUT Kernal routine ($FFD2 hex). 

The 'X' register is then loaded with the screen length and the accumu- 
lator with the reversed space ($A0 hex). Using the 'X' register as an 
offset a reversed space is stored in the top right of the screen and the 
vaulue for yellow is loaded into the accumulator and stored in the top 
right of colour memory. 

This gives us one yellow reversed space in the top right of the screen. 
The contents of the 'X' register are then decremented and the process 
continues until the 'X' register contains zero and our top line is 
complete. 
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The same process is then carried out for the bottom line and the carry 
flag is cleared. In order to draw the border at the sides of the screen 
the start addresses of the screen and colour memory are first stored 
and then manipulated using the 'Y' register to step through the screen 
and colour memory and place the reversed space and the colour in 
the correct positions. 

The code is a little long-winded and there are better ways of writing 
it, but it is presented in this form as it is fairly easy to follow the pro- 
gram flow. 



C000 


A9 06 




LDA #*06 


CB02 


8D 20 


D0 


STA *D020 


C005 


A9 02 




LDA #*02 


C007 


8D 21 


D0 


STA *D021 


C00A 


A9 93 




LDA #*93 


C00C 


20 D2 


FF 


JSR *FFD2 


C00F 


A2 28 




LDX #*28 


C011 


A9 A0 




LDA #*A0 


C013 


9D FF 


03 


STA *03FF,X 


C016 


A9 07 




LDA «*07 


C018 


9D FF 


D7 


STA *D7FF,X 


C01B 


CA 




DEX 


C01C 


D0 F3 




BNE *C011 


C01E 


A2 28 




LDX «*2B 


C020 


A9 A0 




LDA «*A0 


C022 


9D BF 


07 


STA *07BF,X 


C025 


A9 07 




LDA #*07 


C027 


9D BF 


DB 


STA *DBBF,X 


C02A 


CA 




DEX 


C02B 


D0 F3 




BNE *C020 


C02D 


18 




CLC 


C02E 


A9 27 




LDA #*27 


C030 


85 FB 




STA *FB 


C032 


A9 04 




LDA #*04 


C034 


85 FC 




STA *FC 


C036 


A9 27 




LDA #*27 


C038 


85 FD 




STA *FD 


C03A 


A9 D8 




LDA #*D8 


C03C 


85 FE 




STA *FE 


C03E 


A0 00 




LDY #*00 


C040 


A9 A0 




LDA #*A0 


C042 


91 FB 




STA <*FB),Y 


C044 


A9 27 




LDA #*27 


C046 


65 FB 




ADC *FB 


C048 


85 FB 




STA *FB 


C04A 


A9 00 




LDA #*00 


C04C 


65 FC 




ADC *FC 


C04E 


85 FC 




STA *FC 



151 



C050 A9 07 


LDA «*07 


C052 91 FD 


STA (*FD) ,Y 


C054 A9 27 


LDA #*27 


C056 65 FD 


ADC *FD 


C058 85 FD 


STA *FD 


C05A A9 00 


LDA #*00 


C05C 65 FE 


ADC *FE 


C05E 85 FE 


STA *FE 


C060 CB 


I NY 


C061 C0 18 


CPY #*18 


C063 D0 DB 


BNE *C040 


C065 IB 


CLC 


C066 A9 28 


LDA #*2B 


C068 85 FB 


STA *FB 


C06A A9 04 


LDA #*04 


C06C 85 FC 


STA *FC 


C06E A9 28 


LDA #*2S 


C070 85 FD 


STA *FD 


C072 A9 DB 


LDA #*D8 


C074 85 FE 


STA *FE 


C076 A0 00 


LDY #*00 


C078 A9 A0 


LDA #*A0 


C07A 91 FB 


STA (*FB),Y 


C07C A9 27 


LDA #*27 


C07E 65 FB 


ADC *FB 


C080 85 FB 


STA *FB 


C082 A9 00 


LDA #*00 


C084 65 FC 


ADC *FC 


C086 85 FC 


STA *FC 


C088 A9 07 


LDA #*07 


C08A 91 FD 


STA (*FD) ,Y 


C08C A9 27 


LDA #*27 


C08E 65 FD 


ADC *FD 


C090 85 FD 


STA *FD 


C092 A9 00 


LDA #*00 


C094 65 FE 


ADC *FE 


C096 85 FE 


STA *FE 


C098 CB 


I NY 


C099 CO 18 


CPY #*1B 


C09B D0 DB 


BNE *C078 


C09D 18 


CLC 


C09E 60 


RTS 



. (C000 A9 06 8D 20 D0 A9 02 8D 
. :C008 21 DO A9 93 20 D2 FF A2 
. iC010 28 A9 A0 9D FF 03 A9 07 



152 



scaia 


9D 


FF 


D7 


CA 


00 


F3 


A2 


28 


iC020 


A9 


A0 


9D 


BF 


07 


A9 


07 


9D 


:C028 


BF 


DB 


CA 


00 


F3 


18 


A9 


27 


iC030 


85 


FB 


A9 


04 


85 


FC 


A9 


27 


:C03B 


85 


FD 


A9 


D8 


85 


FE 


A0 


00 


:C040 


A9 


A0 


91 


FB 


A9 


27 


65 


FB 


sC048 


85 


FB 


A9 


00 


65 


FC 


85 


FC 


:C0S0 


A9 


07 


91 


FD 


A9 


27 


65 


FD 


(C0S8 


85 


FD 


A9 


00 


65 


FE 


85 


FE 


IC060 


CB 


C0 


18 


D0 


DB 


18 


A9 


28 


■ C068 


85 


FB 


A9 


04 


85 


FC 


A9 


28 


BC070 


85 


FD 


A9 


D8 


85 


FE 


A0 


00 


■ C078 


A9 


A0 


91 


FB 


A9 


27 


65 


FB 


■ C080 


85 


FB 


A9 


00 


65 


FC 


85 


FC 


:C088 


A9 


07 


91 


FD 


A9 


27 


65 


FD 


8C090 


85 


FD 


A9 


00 


65 


FE 


85 


FE 


1C098 


CB 


C0 


18 


00 


DB 


18 


60 


00 



Colour border 

This routine is the same, but tagged on to the end of it are a few lines 
of code that change the interrupts to point at a routine from $C0AF 
to $C0D1 hex. This routine loops through the top line of the screen 
and changes the colour character. It loops through all the available 
colours so quickly that they are a blur. Note that the operating speed 
of the 64 is not noticeably affected. 

B* 

PC SR AC XR YR SP 
. ;0008 B0 C0 00 18 F6 



C000 


A9 


06 




LDA 


**06 


C002 


8D 


20 


D0 


STA 


*D020 


C005 


A9 


02 




LDA 


#*02 


C007 


80 


21 


D0 


STA 


*D021 


C00A 


A9 


93 




LDA 


#*93 


C00C 


20 


D2 


FF 


JSR 


*FFD2 


C00F 


A2 


28 




LDX 


#*28 


C011 


A9 


A0 




LDA 


#*A0 


C013 


9D 


FF 


03 


STA 


*03FF,X 


C016 


A9 


07 




LDA 


#*07 


C018 


9D 


FF 


D7 


STA 


*D7FF,X 


C01B 


CA 






DEX 




C01C 


00 


F3 




BNE 


*C011 


C01E 


A2 


28 




LDX 


#*2B 


C020 


A9 


A0 




LDA 


**A0 
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CB22 

C025 

C027 

C02A 

CB2B 

C02D 

C02E 

CB3B 

CB32 

CB34 

C036 

CB38 

C03A 

C03C 

CB3E 

CB4B 

CB42 

C044 

CB46 

CB48 

CB4A 

CB4C 

CB4E 

CBSB 

CBS2 

CB54 

CBS6 

CBSB 

CBSA 

CB5C 

CBSE 

C060 

CB61 

CB63 

CB6S 

C066 

CB68 

C06A 

C06C 

CB6E 

CB7B 

CB72 

C074 

C076 

CB78 

C07A 

C07C 

C07E 

C080 

C0S2 

CBB4 

C086 



9D BF B7 
A9 B7 
9D BF DB 
CA 

DB F3 
18 

A9 27 
85 FB 
A9 B4 
85 FC 
A9 27 
85 FD 
A9 D8 
85 FE 
AB 00 
A9 AB 

91 FB 

A9 27 

65 FB 

85 FB 

A9 00 

65 FC 

85 FC 

A9 07 

91 FD 

A9 27 

65 FD 

85 FD 

A9 00 

65 FE 

85 FE 



C8 

C0 IB 
DB DB 
18 

A9 28 
85 FB 
A9 04 
85 FC 
A9 28 
85 FD 
A9 D8 
85 FE 
A0 B0 
A9 AB 
91 FB 
A9 27 
65 FB 
85 FB 
A9 OB 
65 FC 
85 FC 



STA 

LDA 

STA 

DEX 

BNE 

CLC 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDY 

LDA 

STA 

LDA 

ADC 

STA 

LDA 

ADC 

STA 

LDA 

STA 

LDA 

ADC 

STA 

LDA 

ADC 

STA 

I NY 

CPY 

BNE 

CLC 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDY 

LDA 

STA 

LDA 

ADC 

STA 

LDA 

ADC 

STA 



*B7BF,X 

#*07 

*DBBF,X 

*C020 

#*27 

*FB 

»*04 

*FC 

#*27 

*FD 

#*D8 

*FE 

**00 

#*A0 

(*FB) ,Y 

#*27 

*FB 

*FB 

**00 

*FC 

*FC 

#*07 

(*FD) f Y 

#*27 

*FD 

*FD 

#*00 

*FE 

*FE 

tt*18 
*CB4B 

#*2B 
*FB 
#*B4 
*FC 
**28 
*FD 
#*D8 
*FE 
tt*0B 
•«AB 
(«FB) ,Y 
•*27 
*FB 
*FB 
#*B0 
♦FC 
*FC 
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C088 


A9 


07 


LDA 


#*07 


C08A 


91 


FD 


STA 


(*FD> ,Y 


C0BC 


A9 


27 


LDA 


#*27 


C08E 


65 


FD 


ADC 


*FD 


C090 


89 


FD 


STA 


*FD 


C092 


A9 


00 


LDA 


«*00 


C094 


65 


FE 


ADC 


*FE 


C096 


85 


FE 


STA 


*FE 


C098 


C8 




INY 




C099 


C0 


18 


CPY 


ft*18 


C09B 


D0 


DB 


BNE 


*C07S 


CB9D 


18 




CLC 




CB9E 


A9 


00 


LDA 


«*O0 


COAO 


85 


FD 


STA 


*FD 


C0A2 


78 




SEI 




C0A3 


A9 


AF 


LDA 


•*AF 


C0A5 


80 


14 03 


STA 


♦0314 


CBA8 


A9 


CO 


LDA 


•*C0 


C0AA 


8D 


15 03 


STA 


*0315 


C0AD 


58 




CLI 




C0AE 


60 




RTS 




C0AF 


A9 


00 


LDA 


•*00 


C0B1 


85 


FB 


STA 


*FB 


C0B3 


A9 


D8 


LDA 


•*D8 


C0BS 


85 


FC 


STA 


*FC 


C0B7 


A0 


00 


LDY 


**00 


C0B9 


A5 


FD 


LDA 


*FD 


C0BB 


91 


FB 


STA 


<*FB) ,Y 


CBBD 


C8 




INY 




C0BE 


CO 


28 


CPY 


«*28 


C0C0 


DO 


F9 


BNE 


•COBB 


C0C2 


E6 


FD 


INC 


«FD 


C0C4 


AS 


FD 


LDA 


*FD 


C0C6 


C9 


07 


CMP 


»*07 


C0C8 


F0 


03 


BEQ 


•COCO 


C0CA 


4C 


31 EA 


JMP 


*EA31 


C0CD 


A9 


00 


LDA 


tt*00 


C0CF 


85 


FD 


STA 


*FD 


C0D1 


4C 


31 EA 


JMP 


*EA31 



. s C0B0 A9 06 8D 20 00 A9 02 SD 
.:C00S 21 D0 A9 93 20 D2 FF A2 
.:C010 28 A9 A0 9D FF 03 A9 07 
.:C018 9D FF D7 CA D0 F3 A2 28 
. : C020 A9 A0 9D BF 07 A9 07 9D 
.SC028 BF DB CA D0 F3 18 A9 27 
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. : C03B B5 FB A9 04 85 FC A9 27 
. : C038 85 FD A9 D8 85 FE A0 00 
. :C040 A9 A0 91 FB A9 27 65 FB 
. : C04B 85 FB A9 00 65 FC 85 FC 
.:C050 A9 07 91 FD A9 27 65 FD 
. : C058 85 FD A9 00 65 FE 85 FE 
. :C060 C8 C0 IB D0 DB 18 A9 28 
. : C068 85 FB A9 04 85 FC A9 28 
. : C070 85 FD A9 DB 85 FE A0 00 
.:C078 A9 A0 91 FB A9 27 65 FB 
. : C080 85 FB A9 00 65 FC 85 FC 
.:C088 A9 07 91 FD A9 27 65 FD 
.:C090 85 FD A9 00 65 FE 85 FE 
.sC098 C8 C0 IB D0 DB 18 A9 00 
.:C0A0 85 FD 78 A9 AF BD 14 03 
„:C0A8 A9 CO 8D 15 03 58 60 A9 
. : C0B0 00 85 FB A9 D8 85 FC A0 
.sCOBB 00 A5 FD 91 FB C8 C0 28 
. i C0C0 DO F9 E6 FD A5 FD C9 07 
.:C0C8 FO 03 4C 31 EA A9 00 85 
. :C0DO FD 4C 31 EA 00 00 00 00 



Basic graph 

To finish the book here is a small Basic program that will plot a sine 
wave in Basic using the 64's on board graphics. This should also serve 
you well for calculations for the hi-res routine. 

The program draws the axis for the sine wave and uses the variables 
'SC and 'C for screen and colour memory. The rest of the routine 
is fairly straightforward as the program calculates and outputs the sine 
wave. 

The routine at lines 230 to 260 checks for the position of the sine wave 
and changes the character used to draw the wave. Line 270 does the 
actual display and colouring. 

100 DEFFNP<X>=SIN<X/6.2B> 

110 PR I NT " C CLP. 1 " i SC- 1 024 a C-54272 

120 FOR A=SCT0 1984STEP40: POKEA ,101s POKEA+C , 7 s NE X T 

130 PRINT" CYEL3CHME3C 12 CD3CSH L3C39 LO PJ" 

140 F0RX=1T079 

150 Y1=FNP(X) 

160 Y=24+24*Y1 

170 X2=INT(X/2) :Y2=INT<Y/2) 
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180 IFX2>39ORY2>25THEN280 

190 Xl=X/2-X2:Yl=Y/2-Y2 

200 A- 1 9B4-Y2*40+ X2 : CQ-A+54272 

210 IFXK.5THENX1-0 

220 IFYK.5THENY1=0 

230 I FX 1 =0ANDY 1 =0THENO 1 23 s BOTQ270 

240 I FX 1 < >0ANDY 1 < >0THENC= 1 24 : SOTO270 

250 I FX 1< >0ANDY 1 < >0THENC= 1 08 « SOTO270 

260 IFX1O0ANDY1O0THENO126 

270 P0KEA,C:P0KEC0,7 

280 NEXTX 



Farewell 



A close friend of mine thought that it would be rather nice to end the 
main part of the book with a few sentences from me rather than a 
program. So here they are. 

I hope that you have enjoyed the book and that it has given you many 
wonderful ideas. I have particularly enjoyed writing this book, despite 
problems with my printer and 'interpod' and despite the deadline... 
I must now rush off to my publishers and will look forward to writing 
for you again. 
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Appendix A 



64 memory map revisited 

By now many memory maps for the 64 have been published. However, 
every programmer likes to feel that he has published a copy with more 
information than any other. Anyone reading this map can be sure that 
I have included everything I possibly can in it. To my mind this justifies 
its inclusion. 

All locations are given in hex and decimal, and some locations may 
include extensive comments. The hex numbers are in the left-hand 
column. 

0000 Chip directional register 

0001 - 0002 1 - 2 Chip I/O & tape control 

(Bit 0; = switch out Basic ROM) 
(Bit 1; = switch out Kernal) 
(Bit 2; = switch in Character 

generator) 
(Bit 3; 1 = cassette write line 

output) 
(Bit 4; = cassette switch sense 

input) 
(Bit 5; = cassette motor on; 1 = 

off) 

Floating point & fixed point vector 
Fixed point & floating point vector 
Search character for end of line 
Scan-quotes flag 
Column position of cursor on line 
Flag; = load; 1 = verify 



158 



0003-0004 


3-4 


0005-0006 


5-6 


0007 


7 


0008 


8 


0009 


9 


000A 


10 



OOOB 11 BASIC input buffer pointer/ 

subscript no. 

000C 12 Default DIM flag 

000D 13 Variable flag; FF = string; 

00 = numeric 

OOOE 14 Numeric flag: 80 = integer; 00 = 

floating point 

OOOF 15 Flag; DATA scan; LIST quote; 

memory 

0010 16 Flag; Subscript - FNx 

0011 17 Flag; = INPUT; 152 = READ; 64 

= GET 

0012 1 8 Flag; ATN sign - comparision 

evaluation 

0013 19 Current I/O prompt flag (1 = 

prompt off) 

0014 - 0015 20 - 21 BASIC stores integer values here 

0016 22 Pointer; temporary string stack 

0017 - 0018 23 - 24 Last temporary string vector 

0019 - 0021 25 - 33 Stack for temporary string 

descriptors 

0022 - 0025 34 - 37 Utility pointer area 

0026 - 002A 38 - 42 Product area for multiplication 

002B - 002C 43 - 44 Pointer; start of BASIC program 

(normally 1 & 8, but start of BASIC 
can be changed by altering values) 

002D - 002E 45 - 46 Pointer; start of BASIC variables - 

end of current BASIC program 
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002F - 0030 47 - 48 Pointer; start of arrays - end of 

variables 

0031 - 0032 49 - 50 Pointer; end of arrays 

0033 - 0034 51 - 52 Pointer; start of string storage 

(moves down from from top of 
available memory to arrays and OUT 
OF MEMORY) 

Pointer; end of string storage 

Pointer; to top of current RAM 
available to BASIC (alter these 
values to reset top of RAM) 

Current BASIC line number 

Previous BASIC line number 

Pointer; BASIC statement for CONT 

Current DATA line number 

Pointer; current DATA item 

Vector; jump for INPUT statement 

Current variable name 

Current variable address 

Variable pointer for FOR - NEXT 
statement 

004B - 004C 75-76 Y-save; operator-save; BASIC 

pointer-save 

004D 77 Comparison symbol 

004E - 004F 78 - 79 Work area; function definition 

pointer 

0050 - 0051 80 - 81 Work area; string descriptor pointer 
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0035- 


0036 


53- 


54 


0037- 


0038 


55- 


56 


0039- 


003A 


57- 


58 


003B 


-003C 


59- 


60 


003D 


-003E 


61 ■ 


-62 


003F 


-0040 


63 


-64 


0041 


■0042 


65 


-66 


0043 


-0044 


67 


-68 


0045 


-0046 


69 


-70 


0047 


-0048 


71 


-72 


0049 


-004A 


73 


-74 



0052 82 Length of string 

0053 83 Garbage collect use 

0054 - 0056 84 - 86 Jump vector for functions 
0057 - 0060 87 - 96 Numeric work area 

0061 97 Accumulator #1; exponent 

0062 - 0065 98 - 101 Accumulator #1; mantissa 

0066 102 Accumulator #1; sign 

0067 103 Series evaluation constant pointer 

0068 104 Accumulator #1; hi-order 

(overflow) 

0069 - 006E 105 - 110 Accumulator #2; floating point 

006F 111 Sign comparision; Accumulator 1 - 

Accumulator 2 

0070 112 Accumulator #2; lo-order 

(rounding) 

0071 -0072 113-114 Cassette buffer length - series 

pointer 

0073 - 008A 115-138 CHRGET BASIC subroutine; get 

next character (change routine to 
add new commands) 

007A - 007B 122 - 123 BASIC pointer within routine 

008B - 008F 139 - 143 RND storage and work area 

0090 144 Status byte - ST 

0091 145 Flag; STOP and RVS; Keyswitch 

PIA 

0092 146 Timing constant for tape 
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0093 


147 


0094 


148 


0095 


149 


0096 


150 


0097 


151 


0098 


152 


0099 


153 


009A 


154 


009B 


155 


009C 


156 


009D 


157 



Flag; = load; 1 = verify 

Serial output; deferred character flag 

Serial deferred character 

Tape EOT received 

Register save 

Number of open files 

Current input device; normally 

Current output device; normally 3 

Tape character parity 

Flag; Byte received 

Output control flag; $80 (128) = 
direct = RUN 

009E 158 Tape pass 1 error log; character 

buffer 

Tape pass 2 error log corrected 

Jiffy clock - used by Tl and Tl$ 

Serial bit count; EOI flag 

Cycle count 

Countdown, tape write - bit count 

Pointer; tape buffer 

Tape write count; input bit storage 

Tape write new byte; read error; 
input bit count 

00A9 169 Write start bit; read bit error 
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009F 




159 




O0A0- 


00A2 


160- 


162 


00A3 




163 




00A4 




164 




00A5 




165 




00A6 




166 




00A7 




167 




00A8 




168 





OOAA 
OOAB 



170 
171 



OOAC - OOAD 172 - 173 

OOAE - OOAF 174 - 175 

OOBO - 00B1 176 - 177 

00B2 - 00B3 178 - 179 

00B4 180 

00B5 181 

00B6 182 



00B7 



183 



00B8 184 

O0B9 185 

OOBA 186 



OOBB - 


OOBC 


187 - 188 


OOBD 




189 


OOBE 




190 


OOBF 




191 


OOCO 




192 



00C1 - 00C2 193 - 194 



Tape scan; count 

Write read length; read checksum; 
parity 

Pointer; tape buffer - scrolling 

Tape end addresses; end of program 

Tape timing constants 

Pointer; start of tape buffer 

Tape timer; bit count 

Tape EOT - RS232 next bit to send 

Read character error; output to 
buffer 

Number of characters in current file 
name (needs to be set even if Kernal 
routines not used) 

Current logical file number 

Current secondary address 

Current device number (tape, disk, 
etc) 

Pointer; to current file name 

Write shift - read input character 

Number of blocks remaining to 
write; read 

Serial word buffer 

Tape motor interlock; (along with 
loc. 1 controls the tape motor). 

Tape I/O start address 
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00C3 - 00C4 195 - 196 
00C5 197 

00C6 198 



00C7 



199 



00C8 




200 




00C9- 


OOCA 


201 - 


202 


OOCB 




203 




OOCC 




204 




OOCD 




205 




OOCE 




206 




OOCF 




207 




OODO 




208 





00D1 - 00D2 209 - 210 



00D3 




211 




00D4 




212 




00D5 




213 




00D6 




214 




00D7 




215 




00D8 




216 




00D9- 


OOFO 


217- 


240 
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Pointer; Kernal set up 

Current key pressed (see key values) 

No. of characters in keyboard buffer 
(can be used from direct or progam 
mode) 

Flag; screen reverse; 1 = on; = 
off 

Pointer; end of line for input 

Cursor log; row, column 

Current key pressed 

Flag; cursor blink; = on 

Cursor timing countdown 

Character under cursor 

Flag; cursor on or off 

Input from screen or keyboard 

Pointer; to screen line on which 
cursor appears 

Position of cursor on line 

= direct, else programmed 

Current screen line length 

Row were cursor lives (to change 
position 201 , 210, 21 1 , and 214 must 
be changed) 

Ascii value of last character printed 

Number of inserts outstanding 

Screen line link table 



00F1 




241 




00F2 




242 




00F3- 


-00F4 


243 


■244 


00F5- 


■00F6 


245- 


■246 


00F7- 


■00F8 


247- 


■248 



00F9 - OOFA 249 - 250 
OOFB - OOFE 251 - 254 



OOFF 




255 




0100 


-010A 


256 


-257 


0100 


-013E 


256 


-318 


0100- 


-01FF 


256 


-511 


0200- 


■0258 


512 


-600 


0259- 


0262 


601 ■ 


-610 


0263- 


026C 


611 - 


620 


026D 


-0276 


621 - 


■630 


0277- 


0280 


631 - 


640 


0281 - 


0282 


641 - 


642 


0283- 


0284 


643- 


644 



0285 645 

0286 646 

0287 647 



Dummy screen line link 

Screen row marker 

Pointer; current loc. in colour 
memory 

Keyboard pointer 

Pointer; RS-232 receiver 

Pointer; RS-232 transmitter 

Free zero page locations 

BASIC storage 

Floating to Ascii work area 

Tape error log (can use part of this 
area 'carefully') 

Processor stack area 

BASIC input buffer 

Logical file table for OPEN files 

Device number for OPEN files 

Secondary addresses table 

Keyboard buffer (see $C6) 

Pointer; start of memory for op. 
system 

Pointer; end of memory for op. 
system 

Serial bus timeout flag 

Current colour code for character 

Colour under cursor 
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0288 648 Pointer; screen memory page 

(normally 4) (change value when 
switching screen) 

0289 649 Maximum size of keyboard buffer 

(can be lengthened, but tricky) 

Key repeat; normal; 255 repeat all 

Repeat speed counter 

Repeat delay counter 

Flag; keyboard SHIFT key CTRL key 
and C = keys; SHIFT = set bit 0; 
CTRL = set bit 1; C = set bit 2 

028E 654 Last SHIFT pattern 

028F - 0290 655 - 656 Pointer; keyboard table set up 

0291 657 Keyboard shift mode; = enabled; 

128 = disabled 



028A 


650 


028B 


651 


028C 


652 


028D 


653 



0292 




658 




Auto scroll = enabled 


0293 




659 




RS-232 control register 


0294 




660 




RS-232 command register 


0295- 


0296 


661 - 


662 


Bit timing 


0297 




663 




RS-232 status register 


0298 




664 




Number of bits to send 


0299- 


029A 


665- 


666 


RS-232 speed code 


029B 




667 




RS-232 receive pointer 


029C 




668 




RS-232 input pointer 


029D 




669 




RS-232 transmit pointer 


029E 




670 




RS-232 output pointer 
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02A1 


673 


02A2 


674 


02A3 


675 


02A4 


676 


02A5 


677 


02A6 


678 



029F - 02A0 671 - 672 IRQ save during tape I/O 

CIA 2 (NMI) interrupt control 

CIA 1 timer A control log 

CIA 1 interrupt log 

CIA 1 timer A enable flag 

Screen row marker 

PAL-NISC flag; = NTSC, 1 = 
PAL 

02A7 - 02BF 679 - 703 Unused (useful for m/c programs in 

header) 

02C0 - 02FE 704 - 766 (Sprite 1 1 ) 

0300 - 0301 768 - 769 Error message link 

0302 - 0303 770 - 771 Basic warm start link 

0304 - 0305 772 - 773 Crunch Basic tokens link 

0306 - 0307 774 - 775 Print tokens link 

0308 - 0309 776 - 777 Start new Basic code link 

030A - 030B 778 - 779 Get arithmetic element link 

030C 780 Temp A save during SYS 

030D 781 Temp X save during SYS 

030E 782 Temp Y save during SYS 

030F 783 Temp P save during SYS 

0310 - 0312 784 - 786 USR function jump 

0314 - 1315 788 - 789 Hardware interrupt vector (norm = 

EA31) 
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0316 - 0317 790 - 791 Break interrupt vector (BRK) (norm 

= FE66) 

0318 - 0319 792 - 793 NMI interrupt vector (norm = FE47) 

031A-031B 794-795 OPEN vector (norm = F34A) 

031C-031D 796-797 CLOSE vector (norm = F291) 

031 E - 031 F 798 - 799 Set input device vector (norm = 

F20E) 

0320 - 0321 800 - 801 Set output device vector (norm = 

F250) 

0322 - 0323 802 - 803 Restore I/O vector (norm = F333) 

0324 - 0325 804 - 805 Input vector (norm = F157) 

0326-0327 806-807 Output vector (norm = F1 CA) 

0328 - 0329 808 - 809 Test-STOP key vector (norm = 

F6ED) 

032A-032B 810-811 GET vector (norm = F13E) 

032C - 032D 812 - 813 Abort I/O vector (norm = F32F) 

032E - 032F 814 - 815 Warm start vector (norm = FE66) 

0330 - 0331 816-817 Load from device vector (norm = 

F4A5) 

0332 - 0333 818-819 Save to device vector (norm = 

F5ED) 

0334 - 033B 820 - 827 Unused 

033C - 03FB 828 - 1019 Cassette buffer (useful for m/c 

programs when no tape l/O's are 
performed 

0340 - 037E 832 - 895 Sprite 13 

0380 - 03BE 896 - 958 Sprite 14 

168 



03C0 - 03FE 960 - 1022 Sprite 15 

0400 - 07FF 1024 - 2039 Screen memory 

078F - 07FF 2040 - 2047 Sprite pointers 

0800 - 9FFF 2048 - 40959 BASIC RAM memory and variables 

8000 - 9FFF 32768 - 40959 Alternate; ROM plug in area (if 

cartridge in at power up memory is 
re-structured and this area is not) 
available for user programs 

AOOO - BFFF 40960 - 49151 ROM; BASIC (underlying RAM can 

be switched in) 

C000 - CFFF 49152 - 53247 Alternate; RAM (available for user 

programs and is also used as a buffer 
during I/O operations) 

D000 - D02E 53248 - 53294 6566 video chip 

D000 - DFFF 53248 - 57343 Character set 

(DOOO - D1FF = Upper case) 
(D200 - D3FF = Graphics) 
(D400 - D5FF = Reversed upper 

case) 
(D600-D7FF = Reversed graphics) 
(D800 - D9FF = Lower case) 
(DAOO - DBFF = Upper case & 
graphics) 
(DCOO - DDFF = Reversed lower 

case) 
(DEOO - DFFF = Reversed upper 

case & graphics) 

D400-D41C 54272-54300 Sound chip (SID) 6581 

D800 - DBFF 55296 - 56319 Colour memory 

DCOO - DCOF 56320 - 56335 Interface chip 1, IRQ (6526 CIA) 

DC10 - DDOF 56576 - 56591 Interface chip 2, NMI (6526 CIA) 

E000 - FFFF 57334 - 65535 ROM; operating system (underlying 
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FF81 - FFF5 


65409 - 65525 


FF84 


65412 


FF87 


65415 


FF8A 


65418 


FF8D 


65421 


FF90 


65424 


FF93 


65427 


FF96 


65430 


FF99 


65433 


FF9C 


65436 


FF9F 


65439 


FFA2 


65442 


FFA5 


65445 


FFA8 


65448 


FFAB 


65451 


FFB7 


65463 


FFBA 


65466 


FFBD 


65469 


FFCO 


65472 


FFC3 


65475 


FFC6 


65478 



RAM can be switched in) 

Jump table. Includes the following: 

Initialise I/O 

Initialise system constants 

Kernal reset 

Kernal move 

Flag status 

Send listen (secondary address) 

Send talk (secondary address) 

Read-Set top of memory 

Read-Set bottom of memory 

Read keyboard 

Set timeout 

Receive from serial bus 

Send serial deferred 

Send untalk 

Get status 

Save file details 

Save filename data 

Do open file (via OPEN vector 031 A) 

Close file (via CLOSE vector 031 C) 

Set input device (via Set input vector 
031 E) 
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FFC9 



FFCC 



65481 



65484 



FFCF 


65487 


FFD2 


65490 


FFD5 


65493 


FFD8 


65496 


FFDB 


65499 


FFDE 


65502 


FFE1 


65505 


FFE4 


65508 


FFE7 


65511 


FFEA 


65514 


FFED 


65517 


FFFO 


65520 


FFF3 


65523 



Set output device (via Set output 
vector 0320) 

Restore default I/O (via Restore I/O 
vector 0322) 

INPUT (via Input vector 0324) 

Output (via Output vector 0326) 

Load program 

Save program 

Set time 

Get time 

Check STOP key (via test STOP 
vector 0328) 

Get (via Get vector 032A) 

Abort all files (via Abort I/O vector) 

Bump clock 

Get screen size 

Put/get row/column 

Get I/O address 



171 



Commodore 64 - ROM Memory Map 



A000: 

AOOC; 

A052: 

A080; 

A09E; 

A19E; 

A328; 

A365 

A38A 

A3B8 

A3FB: 

A408 

A435 

A437; 

A469; 

A474; 

A480; 

A49C: 

A533 

A560; 

A579 

A613 

A642; 

A65E; 

A68E; 

A69C: 

A742 

A7ED; 

A81D 

A82C; 

A82F; 

A831 

A857 

A871 

A883 

A8A0 

A8D2 

A8F8: 

A906 

A928: 

A93B: 

A94B 

A96B 

A9A5 

AA80 

AA86 

AAAO: 

ABIE; 

AB3B 

AB4D 

AB7B 

ABA5: 

ABBF 

ABF9 

AC06; 

ACFC 



ROM control vectors 

Keyword action vectors 

Function vectors 

Operator vectors 

Keywords 

Error messages 

Error message vectors 

Misc messages 

Scan stack for FOR/GOSUB 

Move memory 

Check stack depth 

Check memory space 

'out of memory' 

Error routine 

BREAK entry 

'ready.' 

Ready for Basic 

Handle new line 

Re-chain lines 

Receive input line 

Crunch tokens 

Find Basic line 

Perform [NEW] 

Perform [CLR] 

Back up text pointer 

Perform [LIST] 

Perform [FOR] 

Execute statement 

Perform [RESTORE] 

Break 

Perform [STOP] 

Perform [END] 

Perform [CONT] 

Perform [RUN] 

Perform [GOSUB] 

Perform [GOTO] 

Perform [RETURN] 

Perform [DATA] 

Scan for next statement 

Perform [IF] 

Perform [REM] 

Perform [ON] 

Get fixed point number 

Perform [LET] 

Perform [PRINT*] 

Perform [CMD] 

Perform [PRINT] 

Print string from (y.a) 

Print format character 

Bad input routine 

Perform [GET] 

Perform [INPUT*] 

Perform [INPUT] 

Prompt & input 

Perform [READ] 

Input error messages 



AD IE; Perform [NEXT] 

AD78; Type match check 

AD9E; Evaluate expression 

AEA8; Constant - pi 

AEF1; Evaluate within brackets 

AEF7; ')' 

AEFF; comma.. 

AF08; Syntax error 

AF14; Check range 

AF28; Search for variable 

AFA7; Setup FN reference 

AFE6; Perform [OR] 

AFE9; Perform [AND] 

BO 16; Compare 

B081; Perform [DIM] 

B08B; Locate variable 

Bl 1 3; Check alphabetic 

B 1 1 D; Create variable 

B194; Array pointer subrtine 

B1A5; Value 32768 

B1B2; Float-fixed 

B1D1; Set up array 

B245; 'bad subscript' 

B248; 'illegal quantity' 

B34C; Compute array size 

B37D; Perform [FRE] 

B391; Fix-float 

B39E; Perform [POS] 

B3A6; Check direct 

B3B3; Perform [DEF] 

B3E1; Check fn syntax 

B3F4; Perform [FN] 

B465; Perform [STR$] 

B475; Calculate string vector 

B487; Set up string 

B4F4; Make room for string 

B526, Garbage collection 

B5BD; Check salvageability 

B606; Collect string 

B63D; Concatenate 

B67A; Build string to memory 

B6A3; Discard unwanted string 

B6DB; Clean descriptor stack 

B6EC; Perform [CHR$] 

B700; Perform [LEFTS] 

B72C; Perform [RIGHTS] 

B737; Perform [MID$] 

B761; Pull string parameters 

B77C; Perform [LEN] 

B782; Exit string-mode 

B78B; Perform [ASC] 

B79B; Input byte paramter 

B7AP; Perform [VAL] 

B7EB; Parameters for POKE/WAIT 

B7F7; Float-fixed 

B80D; Perform [PEEK] 

B824; Perform [POKE] 

B82D; Perform [WAIT] 
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B849; Add 0.5 

B850; Subtract-from 

B853; Perform [subtract] 

B86A; Perform [add] 

B947; Complement FAC*1 

B97E; 'overflow' 

B983; Multiply by zero byte 

B9EA; Perform [LOG] 

BA2B; Perform [multiply] 

BA59; Multiply-a-bit 

BA8C; Memory to FAC*2 

BAB7; Adjust FAC*l/*2 

BAD4; Underflow/overflow 

BAE2; Multiply by 10 

BAF9; + 10 in floating pt 

BAFE; Divide by 10 

BB12; Perform [divide] 

BBA2; Memory to FAC1 

BBC7; FAC*1 to memory 

BBFC; FAC*2 to FAC'l 

BCOC; FAC*ltoFAC*2 

BC1B; Round FAC'l 

BC2B; Get sign 

BC39; Perform [SGN] 

BC58; Perform [ABS] 

BC5B; Compare FAC'l to mem 

BC9B; Float-fixed 

BCCC; Perform [int] 

BCF3; String to FAC 

BD7E; Get ascii digit 

BDC2; Print 'IN..' 

BDCD; Print line number 

BDDD; Float to ascii 

BF16; Decimal constants 

BF3A; Tl constants 

BF71; Perform [SQR] 

BF7B; Perform [power] 

BFB4; Perform [negative] 

BFED; Perform [EXP] 

E043; Series eval 1 

E059; Series eval 2 

E097; Perform [RND] 

E0f9; ?? breakpoints V. 

E12A; Perform [SYS] 

El 56; Perform [SAVE] 

El 65; Perform [VERIFY] 

El 68; Perform [LOAD] 

El BE; Perform [OPEN] 

E1C7; Perform [CLOSE] 

El D4; Parameters for LOAD/SAVE 

E206; Check default parameters 

E20E; Check for comma 

E2 1 9; Parameters for open/close 

E264; Perform [COS] 

E26B; Perform [SIN] 

E2B4; Perform [TAN] 

E30E; Perform [ATN] 

E37B; Warm restart 



E394; 


Initialize 


E3A2; 


CHRGET for zero page 


E3BF; 


Initialize Basic 


E447; 


Vectors for $300 


E453; 


Initialize vectors 


E45F; 


Power-up message 


E500; 


Get I/O address 


E505; 


Get screen size 


E50A; 


Put/get row/column 


E518; 


Initializel/O 


E544; 


Clear screen 


E566; 


Home cursor 


E56C; 


Set screen pointers 


E5A0; 


Set I/O defaults 


E5B4; 


Input from keyboard 


E632; 


Input from screen 


E684; 


Quote test 


£691; 


Setup screen print 


E6B6; 


Advance cursor 


E6ED; 


Retreat cursor 


E701; 


Back into previous line 


E716; 


Output to screen 


E87C; 


Go to next line 


E891; 


Perform <return> 


E8A1; 


Check line decrement 


E8B3; 


Check line increment 


E8CB; 


Set color code 


E8DA; 


Color code table 


E8EA; 


Scroll screen 


E965; 


Open space on screen 


E9C8; 


Move a screen line 


E9E0; 


Synchronize color transfer 


E9F0; 


Set start-of-line 


E9FF; 


Clear screen line 


EA13; 


Print to screen 


EA24; 


Synchronize color pointer 


EA31; 


Interrupt - clock etc 


EA87; 


Read keyboard 


EB79; 


Keyboard select vectors 


EB81; 


Keyboard 1 - unshifted 


EBC2; 


Keyboard 2 - shifted 


EC03; 


Keyboard 3 - 'comm' 


EC44; 


Graphics/text contrl 


EC4F; 


Set graphics/text mode 


EC78; 


Keyboard 4 


ECB9; 


Video chip setup 


ECE7; 


Shift/run equivalent 


ECFO; 


Screen In address low 


ED09; 


Send 'talk' 


EDOC; 


Send 'listen' 


F.D40; 


Send to serial bus 


EDB2; 


Serial timeout 


EDB9; 


Send listen SA 


EDBE; 


Clear ATN 


EDC7; 


Send talk SA 


EDCC; 


Wait for clock 


EDDD; 


Send serial deferred 


EDEF; 


Send 'untalk' 
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EDFE; 


Send 'unlisten' 


EE13; 


Receive from serial bus 


EE85; 


Serial clock on 


EE8E; 


Serial clock off 


EE97; 


Serial output ']' 


EEAO; 


Serial output '0' 


EEA9; 


Get serial in & clock 


EEB3; 


Delay 1 ms 


EEBB; 


RS-232 send 


EF06; 


Send new RS-232 byte 


EF2E; 


No-DSR error 


EF31; 


No-CTS error 


EF3B; 


Disable timer 


EF4A; 


Compute bit count 


EF59; 


RS232 receive 


EF7E; 


Setup to receive 


EFC5; 


Receive parity error 


EFCA; 


Receive overflow 


EFCD; 


Receive break 


EFDO; 


Framing error 


EFE1; 


Submit to RS232 


FOOD; 


No-DSR error 


F017; 


Send to RS232 buffer 


F04D; 


Input from RS232 


F086; 


Get from RS232 


FOA4; 


Check serial bus idle 


FOBD; 


Messages 


F12B; 


Print if direct 


F13E; 


Get.. 


F14E; 


..from RS232 


F157; 


Input 


F199; 


Get.. tape/serial/rs232 


F1CA; 


Output.. 


F1DD; 


..to tape 


F20E; 


Set input device 


F250; 


Set output device 


F291; 


Close file 


F30F; 


Find file 


F31F; 


Set file values 


F32F; 


Abort all files 


F333; 


Restore default I/O 


F34A; 


Do file open 


F3D5; 


Send SA 


F409; 


Open RS232 


F49E; 


Load program 


F5AF; 


'searching' 


F5C1; 


Print filename 


F5D2; 


'loading/verifying' 


F5DD; 


Save program 


F68F; 


Print 'saving' 


F69B; 


Bump clock 


F6BC; 


Log PIA key reading 


F6DD; 


Get time 


F6E4; 


Set time 


F6ED; 


Check stop key 


F6FB; 


Output error messages 


F72D; 


Find any tape headr 


F76A; 


Write tape header 



F7D0; 


Get buffer address 


F7D7; 


Set buffer start/end pointers 


F7EA; 


Find specific header 


F80D; 


Bump tape pointer 


F817; 


'press play..' 


F82E; 


Check tape status 


F838: 


'press record..' 


F841; 


Initiate tape read 


F864; 


Initiate tape write 


F875; 


Common tape code 


F8D0; 


Check tape stop 


F8E2; 


Set read timing 


F92C; 


Read tape bits 


FA60; 


Store tape chars 


FB8E; 


Reset pointer 


FB97; 


New character setup 


FBA6; 


Send transition to tape 


FBC8; 


Write data to tape 


FBCD; 


IRQ entry point 


FC57; 


Write tape leader 


FC93; 


Restore normal IRQ 


FCB8; 


Set IRQ vector 


FCCA; 


Kill tape nrotor 


FCD1; 


Check r/w pointer 


FCDB; 


Bump r/w pointer 


FCE2; 


Power reset entry 


FD02; 


Check 8-rom 


FD10; 


8-rom mask 


FD15; 


Kernal reset 


FD1A; 


Kernal move 


FD30; 


Vectors 


FD50; 


Initialize system constnts 


FD9B; 


IRQ vectors 


FDA3; 


Initialize I/O 


FDDD; 


Enable timer 


FDF9; 


Save filename data 


FE00; 


Save file details 


FE07; 


Get status 


FE18; 


Flag status 


FE1C; 


Set status 


FE21; 


Set timeout 


FE25; 


Read/set top of memory 


FE27; 


Read top of memory 


FE2D; 


Set top of memory 


FE34; 


Read/set bottom of memory 


FE43; 


NMI entry 


FE66; 


Warm start 


FEB6; 


Reset IRQ & exit 


FEBC; 


Interrupt exit 


FEC2; 


RS-232 timing table 


FED6; 


NMI RS-232 in 


FF07; 


NMI RS-232 out 


FF43; 


Fake IRQ 


FF48; 


IRQ entry 


FF81; 


Jumbo jump table 


FFFA; 


Hardware vectors 
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Processor I / O Port (6510) 



$0000 
$000] 



IN IN OUT 


IN 


OUT 


OUT 


OUT 


OUT 

ABRAM 
Switch 




Tape 
Motor 


Tape 
Sense 


Tape 
Write 


D-ROM 
Switch 


EF RAM 
Switch 



DDR 
PR I 



Voice 1 Voice 2 Voice 3 

SD400 $D407 $D40E 

$D401 $D408 SD40F 

$D402 $D409 SD410 

$0403 »D40A SD411 

JD404 JD40B $D412 

$D405 $D40C $D413 

JD406 $D40D SD414 



SID (6581) 



SD419 
$D41A 
$D41B 
$D41C 



- 




Frequency 




L 

H 






Pulse 


V, 


dth 




L 
H 













NSE 


Voice Type: 
, PUL , SAW 


TRI i 






Key 




Attack Time 
, 2 ms - 8ms 






Decay Time 
, 6ms -.24 sec 






Sustain Level 






Release Time 
, 6ms ,24 sec 





Voices (write only) 



Filter & Volume (write only) 



Paddle X (A/D*.) 


Paddle Y (A/D '2) 


Noise 3 (random) 


Envelope 3 



Sense (read only) 

Note: Special Voice Features 

(TEST, RING MOD, SYNC) 

are omitted from the above diagram. 



Voice 1 


Voice 2 


Voice 3 


54272 


54279 


54286 


54273 


54280 


54287 


54274 


54281 


54288 


54275 


54282 


54289 


54276 


54283 


54290 


54277 


54284 


54291 


54278 


54285 


54292 



$D415 








1 


I 
H 


54293 


$D416 






Filler Frequency 


54294 


SD417 




Resonance 


Filler Voices 
t Ext , V3 , V2 


VI 


54295 


$D418 


V3 off 


Passband: 
HI , BP 


Master 
LO i , Volume 




54296 



54297 
54298 
54299 
54300 
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CIA 1 (IRQ) (6526) 



spcoi 

$DC02 

$nco3 

JDC04 
$DC05 
SDC06 
$DC07 



$DCOD 
SDCOE 
SDCOF 



Paddle Sel 1 
A B 1 


1 JuvMirkO 

|_ Fire Right Led Down 

Keyboard Row Select (inverted) 


-.MP_ 






1 Joystick 1 

| Fire Riqht Left Down 


UJL 


Keyboard Column Read 




$FF- All Output 




$00 - All Input 




— 


Timer A 


— 


— 


Timer B 


— 























Tape 
Input 




Timer Interrupt 
B A 




One 
Shot 


Oul 

Mode 


Tune 
PB6 Out 


Timer 
A Start 




One 
Shot 


Out 

Mode 


Time 
PB7 Oul 


Timer 
B Start 



[>RA 56320 

I'RB 56321 

DDRA 56322 

DDRB 56323 

TAL 56324 

TAH 56325 

TBL 56326 

TBH 56327 

1CR 56333 

CRA 56334 

CRB 56335 



$DDO0 
SDD01 
SDD02 
SDD03 
SDD04 
$DD05 
$DD06 
$DD07 



SDDOD 
SDDOE 
$DD0F 



CIA 2 (NMI) (6526) 



Serial 

in 



DSR 
IN 



Clock 
IN 



CTS 
IN 



Serial 
OUT 



Clock 
OUT 



DCD* 
IN 



ATN 
OUT 



Rl* 
IN 



RS-232 
OUT 



DTR 
OUT 



addr 15 



RTS 
OUT 



RS-232 
IN 



$3F- Serial 



$00- PUP. All Input 



Timer A 



RS-232 
IN 



$06 - RS-232 



Timer Interrupt 
B A 



Timer 
A Start 



Timer 
B Start 



PRA 56576 

PRB 56577 

DDRA 5657S 

DDRB 56579 

TAL 56580 

TAH 56581 

TBL 56582 

TBH 56583 



ICR 56589 
CRA 56590 
CRB 56591 



Connected but not used by O.S. 



176 



Appendix B 



Key values 

Location 197 decimal $C6 hex contains the value for the current key 
depression. This is a table of the codes stored and their Ascii 
equivalents. 



Key 


Value 


Key 


Value 


left arrow 


57 


INST DEL 





1 


56 


up arrow 


54 


2 


59 


* 


49 


3 


8 


@ 


46 


4 


11 


P 


41 


5 


16 





38 


6 


19 


I 


33 


7 


24 


u 


30 


8 


27 


Y 


25 


9 


32 


T 


22 





35 


R 


17 


+ 


40 


E 


14 


- 


43 


W 


9 


pound sign 


48 


Q 


62 


CLR HOME 


51 


RUN/STOP 


63 
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Key Value Key Value 

A 10 Cursor up/down 7 

S 13 / 55 

D 18 44 

F 21 47 

G 26 M 36 

H 29 N 39 

J 34 B 28 

K 37 V 31 

L 42 C 20 

45 X 23 

; 50 Z 12 

= 53 Space 60 

Return 1 F 14 

Cursor right/left 2 F 35 

F 56 

F 73 
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Appendix C 



Basic tokens 

There are tokens for most of the commands and statements. They 
allow easier entry and longer lines. Overleaf is a complete list of the 
tokens. They will take a while to memorise, but the effort is generally 
worth the result. 
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Abbreviations for Keywords 







Looks like 






Looks like 


Command 


Abbreviation 


this on screen 


Command 


Abbreviation 


this on screen 


ABS 


A 1 |i 


*ffl 


OPEN 


°| 9 p 


°n 


AND 


A H 


*0 


PEEK 


p |9 E 


p B 


ASC 


A B |s 


a® 


POKE 


p 9 1 ° 


>D 


ATM 


A | | T 


*D 


PRINT 


~> 


? 


CHH$ 


c | 9 H 


oQ 


PRINT# 


p 9 1 r 


"U 


CLOSE 


cl[ |c 


clG 


REAO 


r 9 1 e 


»H 


CLR 


c^Ql 


c D 


RESTORE 


re 19 s 


BE® 


CMD 


c[ ||v 


^S 


RETURN 


^99 T 


-LE 


CONT 


cjj | O 


'D 


RIGHTS 


r |9 ' 


»Q 


DATA 


D^ | A 


°a 


RND 


r 9 1 N 


*0 


DEF 


of J E 


°B 


RUN 


r 9 


"Q 


DIM 


°( | 1 


<>□ 


SAVE 


s 1 |a 


s @ 


END 


E ( 9 N 


e 


SGN 


s | 9 g 


S (D 


EXP 


E £ | X 


E S 


SIN 


s 9 9 


*□ 


FOR 


F 1 flc 


E D 


SPC( 


s | | p 


s O 


FRE 


f | |n 


F H 


SQR 


s 19° 


s « 


GET 


G ( 9 E 


«B 


STEP 


st 9 9 e 


st g 


GOSU8 


GO || S 


GO® 


STOP 


s 9 9 t 


'C 


GOTO 


| 


«□ 


STR$ 


st 9 1 r 


stQ 


INPUT* 


1 | J N 


'0 


SYS 


s9 9 y 


s Q 


LET 


L £ | E 


^B 


TAB 


T f | A 


t@ 


LEFT$ 


LE |9 F 


-a 


THEN 


T || H 


T Q 


LIST 


L E | ' 


^0 


USH 


U | | S 


u® 


LOAD 


L 19 ° 


^n 


VAL 


v 9 1 * 


v® 


MIDS 


M £ 9 ' 


«□ 


VERIFY 


v 9 9 e 


»D 


NEXT 


n |9 e 


n g 


WAIT 


It! | A 


w® 


NOT 


n |9 ° 


-D 
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Appendix D 



Machine code instruction set 



The following notation applies to this .summary: 

A Accumulator 

X, Y Index registers 

M Memory 

P Processor status register 

S Stack Pointer 

J Change 

No change 

+ Add 

A Logical and 

— Subtract 

V Logical Exclusive-OR 

-»,<- Transfer to 

■V- Logical (inclusive) or 

PC Program counter 

PCH Program counter high 

PCL Program counter low 

#dd 8-bit immediate data value (2 hexadecimal digits) 

aa 8-bit zero page address (2 hexadecimal digits) 

aaaa 16-bit absolute address (4 hexadecimal digits) 

t Transfer from stack (Pull) 

I Transfer onto stack (Push) 
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ADC 



Add to Accumulator with Carry 

Operation: A + M + C -> A, C 



NZCIDV 



Addressing 


Assembly Language 


OP 


No. 


No. 


Mode 


Form 


CODE 


Bytes 


Cycles 


Immediate 


ADC #dd 


69 


2 


2 


Zero Page 


ADC aa 


65 


2 


3 


Zero Page, X 


ADC aa,X 


75 


2 


4 


Absolute 


ADC aaaa 


6D 


3 


4 


Absolute, X 


ADC aaaa,X 


7D 


3 


4* 


Absolute, Y 


ADC aaaa.Y 


79 


3 


4* 


(Indirect, X) 


ADC (aa,X) 


61 


2 


6 


(Indirect), Y 


ADC (aa),Y 


71 


2 


5* 



*Add 1 if page boundary is crossed. 



AND 



AND Memory with Accumulator 



Logical and to the accumulator 
Operation: A A M -* A 



NZCIDV 

J J 



Addressing 


Assembly Language 


OP 


No. 


No. 


Mode 


Form 


CODE 


Bytes 


Cycles 


Immediate 


AND #dd 


29 


2 


2 


Zero Page 


AND aa 


25 


2 


3 


Zero Page, X 


AND aa,X 


35 


2 


4 


Absolute 


AND aaaa 


2D 


3 


4 


Absolute, X 


AND aaaa,X 


3D 


3 


4* 


Absolute, Y 


AND aaaa,Y 


39 


3 


4* 


(Indirect, X) 


AND (aa,X) 


21 


2 


6 


(Indirect), Y 


AND (aa),Y 


31 


2 


5* 


*Add 1 if page boundary 


is crossed. 
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ASL 



Operation: C 



Addressing 
Mode 



^Accumulator Shift Left 

0niiiiinii[o]«-o 



Accumulator 
Zero Page 
Zero Page, X 
Absolute 
Absolute, X 



ASL 
ASL 
ASL 
ASL 
ASL 





CODE 


A 


OA 


aa 


06 


aa,X 


16 


aaaa 


0E 


aaaa,X 


IE 





N'ZCIDV 

/ J J 


No. 
Bytes 

1 

2 
2 
3 
3 


Nc.. 
| Cycles 

2 

5 
6 
6 

1 7 1 



BCC 



Branch on Carry Clear 

Operation: Branch on C = 



X Z C I D V 







BCS 



Operation: 



Branch on Carry Set 

Branch on C = I 



Addressing 
Mode 



Assembly Language 
Form 



Relative 



BCS 



N Z C I D V 




• "*£ St TXC *££. "*~ " - operas (l , struc , on ,_, „ ^ ^ 
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BEQ 



Branch on Result Equal to Zero 

Operation: Branch on Z = 1 









N Z C I D V 






Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Relative 


BEQ aa 


FO 


2 


2* 



*Add 1 if branch occurs to same page. 
Add 2 if branch occurs to next page. 
Note: AIM 65 will accept an absolute address as the operand (instruction format BEQ aaaa) and 
convert it to a relative address. ' 



BIT 



Test Bits in Memory with Accumulator 



Operation: A M, M 7 -» N, M 6 -» V 

Bit 6 and 7 are transferred to the Status Register. If the 
result of A M is zero then Z = 1, otherwise Z = 









N Z 

M 7 y 


C I D V 
M 6 


Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Zero Page 
Absolute 


BIT aa 
BIT aaaa 


24 
2C 


2 

3 


3 

4 



BMI 

Branch on Result Minus 

Operation: Branch on N = 1 









N ZC I DV 




Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Relative 


BMI aa 


30 


2 


2* 



Add 2 if branch occurs to different page. 
Note: AIM 65 will accept an absolute address as the operand (instruction format BMI aaaa) and 
convert it to a relative address. '' 
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BNE 

Branch on Result Not Equal to Zero 

Operation: Branch on Z = 



NZC I DV 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Relative 


BNE aa 


DO 


2 


2* 



*Add 1 if branch occurs to same page. 
Add 2 if branch occurs to different page. 

Note: AfAA 65 will accept an absolute address as the operand (instruction format BNE aaaa), and 
convert it to a relative address. 



BPL 

Branch on Result Plus 

Operation: Branch on N = 



N ZC I DV 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Relative 


BPL aa 


10 


2 


2* 



*Add 1 if branch occurs to same page. 
Add 2 if branch occurs to different page. 
Note: AIM 65 will accept an absolute address as the operand (instruction format BPL aaaa), and 
convert it to a relative address. 



BRK 

Force Break 

Operation: Forced Interrupt PC + 2 1 P i 



BN ZC I DV 

1 1 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


BRK 


00 


1 


7 
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BVC 

Branch on Overflow Clear 

Operation: Branch on V =: 



XZCIDV 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Relative 


BVC aa 


50 


2 


2* 



*Add I if branch occurs to same page. 
Add 2 if branch occurs to different page. 
Note: AIM 65 will accept an absolute address as the operand (instruction format BVC aaaa), and 
convert it to a relative address. 



BVS 

Branch on Overflow Set 

Operation: Branch on V = 1 



XZCIDV 



Addressing 
Mode 


Assembly Language 
Form 


OP 

CODE 


No. 
Bytes 


No. 
Cycles 


Relative 


BVS aa 


70 


2 


2* 



*Add 1 if branch occurs to same page. 
Add 2 if branch occurs to different page. 
Note: AIM 65 will accept an absolute address as the operand (instruction format BVS aaaa), and 
convert it to a relative address. 



CLC 



Operation: -> C 



Clear Carry Flag 



N ZC I D V 
_ _ 



Addressing 
Mode 


Assembly Language 
Form 


OP 

CODE 


No 
Bytes 


No. 
Cycles 


Implied 


CLC 


18 


1 


2 
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CLD 



Clear Decimal Mode 



Operation : -> D 






N Z C I D V 

- 


Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


CLD 


D8 


1 


2 



CLI 



Operation: -» I 



Clear Interrupt Disable Bit 









N Z C I D V 

-- 


Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


CLI 


58 


1 


2 



CLV 



Operation : -> V 



Clear Overflow Flag 









NZC I DV 




Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


CLV 


B8 


1 


2 



187 



CMP 



Compare Memory and Accumulator- 



Operation: A — M 



X Z C I D V 

J J J 



Addressing 


Assembly Language 


OP 


No. 


No. 


Mode 


Form 


CODE 


Bytes 


Cycles 


Immediate 


CMP #dd 


C9 


2 


2 


Zero Page 


CMP aa 


C5 


2 


3 


Zero Page, X 


CMP aa.X 


D5 


2 


4 


Absolute 


CMP aaaa 


CD 


3 


4 


Absolute, X 


CMP aaaa,X 


DO 


3 


4* 


Absolute, Y 


CMP aaaa.Y 


D9 


3 


4* 


(Indirect, X) 


CMP (aa,X) 


CI 


2 


6 


(Indirect), Y 


CMP (aa),Y 


Dl 


2 


5* 



*Add 1 if page boundary is crossed. 



CPX 



Compare Memory and Index X 



Operation: X — M 



X Z C I D V 

J J J 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Immediate 
Zero Page 
Absolute 


CPX #dd 
CPX aa 
CPX aaaa 


EO 
E4 
EC 


2 
2 

3 


2 
3 

4 



CPY 



Compare Memory and Index Y 



Operation: Y — M 



X Z C I D V 

/ / / 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Immediate 
Zero Page 
Absolute 


CPY #dd 
CPY aa 
CPY aaaa 


CO 
C4 
CC 


2 
2 
3 


2 
3 

4 
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DEC 

Decrement Memory by One 

Operation: M — 1 -» M 



NZCIDV 

J J 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Zero Page 
Zero Page, X 
Absolute 
Absolute, X 


DEC aa 
DEC aa,X 
DEC aaaa 
DEC aaaa,X 


C6 
D6 
CE 

DE 


2 
2 

3 
3 


5 
6 
6 
7 



DEX 



Operation : X 



Decrement Index X by One 
i-> x 



NZCIDV 

J J 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


DEX 


CA 


1 


2 



DEY 



Operation: Y 



Decrement Index Y by One 



NZCIDV 

y / 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


DEY 


88 


1 


2 
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EOR 



Exclusive-OR Memory with Accumulator 



Operation: AVM^A 



NZCIDV 
J J 



Addressing 


Assembly Language 


OP 


No. 


No. 


Mode 


Form 


CODE 


Bytes 


Cycles 


Immediate 


EOR #dd 


49 


2 


2 


Zero Page 


EOR aa 


45 


2 


3 


Zero Page, X 


EOR aa,X 


55 


2 


4 


Absolute 


EOR aaaa 


4D 


3 


4 


Absolute, X 


EOR aaaa.X 


5D 


3 


4* 


Absolute, Y 


EOR aaaa,Y 


59 


3 


4* 


(Indirect, X) 


EOR (aa,X) 


41 


2 


6 


(Indirect), Y 


EOR (aa),Y 


51 


2 


5* 



*Add 1 if page boundary is crossed. 



INC 



Operation: M + 1 - 



Increment Memory by One 

M 



INX 



NZCIDV 

/ y 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Zero Page 
Zero Page, X 
Absolute 
Absolute, X 


INC aa 
INC aa,X 
INC aaaa 
INC aaaa,X 


E6 
F6 
EE 

FE 


2 
2 
3 
3 


5 
6 
6 
7 



Increment Index X by One 

Operation: X + 1 ->• X 









NZCIDV 

y y 


Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


INX 


E8 


1 


2 
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INY 



Increment Index Y by One 



Operation: Y + 1 -> Y 



JMP 



Operation : 



Jump 



( PC + 1 ) -* PCL 
(PC + 2)^PCH 



JSR 

Jump to Subroutine 

Operation: PC + 2 I, (PC + 1 ) -» PCL 
(PC + 2)-*PCH 



N'ZCIDV 
/ J 



Addressing 
Mode 


Assembly Language 
Form 


OP 
Code 


No. 
Bytes 


No. 
Cycles 


Implied 


INY 


C8 


1 


2 



NZC I DV 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Absolute 
Indirect 


JMP aaaa 
JMP (aaaa) 


4C 
6C 


3 
3 


3 

5 



NZC I DV 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Absolute 


JSR aaaa 


20 


3 


6 
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LDA 



Load Accumulator with Memory 



Operation : M -» A 



NZCIDV 

J J 



Addressing 


Assembly Language 


OP 


No. 


No. 


Mode 


Form 


CODE 


Bytes 


Cycles 


Immediate 


LDA #dd 


A9 


2 


2 


Zero Page 


LDA aa 


A5 


2 


3 


Zero Page, X 


LDA aa,X 


B5 


2 


4 


Absolute 


LDA aaaa 


AD 


3 


4 


Absolute, X 


LDA aaaa,X 


BD 


3 


4* 


Absolute, Y 


LDA aaaa.Y 


B9 


3 


4* 


(Indirect, X) 


LDA (aa,X) 


Al 


2 


6 


(Indirect), Y 


LDA (aa),Y 


Bl 


2 


5* 



*Add 1 if page boundary is crossed. 



LDX 



Operation: M -> X 



Load Index X with Memory 



NZC I DV 

j j 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Immediate 
Zero Page 
Zero Page, Y 
Absolute 
Absolute, Y 


LDX #dd 
LDX aa 
LDX aa,Y 
LDX aaaa 
LDX aaaa,Y 


A2 
A6 
B6 
AE 
BE 


2 
2 

2 
3 
3 


2 
3 
4 

4 
4* 


Add 1 when page boun 


dary is crossed. 
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LDY 



Operation: M -» Y 



Load Index Y with Memory 









N ZC I DV 

J J 


Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Immediate 
Zero Page 
Zero Page, X 
Absolute 
Absolute, X 


LDY #dd 
LDY aa 
LDY aea,X 
LDY aaaa 
LDY aaaa,X 


AO 
A4 
B4 
AC 
BC 


2 
2 
2 
3 
3 


2 
3 

4 
4 

4* 



*Add 1 when page boundary is crossed 



LSR 



Local Shift Right 



Operation : -> 


7 


6 


5 


4 


3 


2| l| 0|-*C 












N ZC I D V 

J J 


Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Accumulator 
Zero Page 
Zero Page, X 
Absolute 
Absolute, X 


LSR A 
LSR aa 
LSR aa,X 
LSR aaaa 
LSR aaaa,X 


4A. 

46 

56 

4E 
5E 


1 
2 
2 
3 
3 


2 
5 
6 
6 

7 



NOP 

No Operation 

Operation: No Operation ( 2 cycles ) 



N ZC I DV 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


NOP 


EA 


1 


2 
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ORA 



OR Memory with Accumulator 



Operation: A V M -* A 



N ZC I DV 

/ J 



Addressing 


Assembly Language 


OP 


No. 


No. 


Mode 


Form 


CODE 


Bytes 


Cycles 


Immediate 


ORA #dd 


09 


2 


2 


Zero Page 


ORA aa 


05 


2 


3 


Zero Page, X 


ORA aa,X 


15 


2 


4 


Absolute 


ORA aaaa 


0D 


3 


4 


Absolute, X 


ORA aaaa,X 


ID 


3 


4* 


Absolute, Y 


ORA aaaa.Y 


19 


3 


4* 


(Indirect, X) 


ORA (aa,X) 


01 


2 


6 


(Indirect), Y 


ORA (aa),Y 


11 


2 


5* 



*Add 1 on page crossing. 



PHA 



Operation: A I 



Push Accumulator on Stack 



NZC I DV 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


PHA 


48 


1 


3 



PHP 



Operation: Pi 



Push Processor Status on Stack 



NZC I DV 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


PHP 


08 


1 


3 
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PLA 



Operation: A f 



Pull Accumulator from Stack 









N ZC I DV 

J J 


Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


PLA 


68 


1 


4 



PLP 



Operation: P -f 



Pull Processor Status from Stack 









N ZC I D V 
From Stack 


Addressing 
Mode 


Assembly Language 
Form 


CH> 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


PLP 


28 


1 


4 



ROL 



Operation: 



Rotate Left 



M or A 

7l6l5l4l3l2lll0l <-fc1 



ZJ 











N ZC I D V 

J J J 


Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Accumulator 
Zero Page 
Zero Page, X 
Absolute 
Absolute, X 


ROL A 
ROL aa 
ROL aa,X 
ROL aaaa 
ROL aaaa.X 


2A 
26 
36 
2E 
3E 


1 
2 
2 
3 
3 


2 

5 
6 
6 

7 
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ROR 



Operation: 



Rotate Right 



M or A 



[C] h> | 7| 6| 5| 4|3|2 



ttov I 











N ZC I DV 

J J -J 


Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Accumulator 
Zero Page 
Zero Page, X 
Absolute 
Absolute, X 


ROR A 
ROR aa 
ROR aa,X 
ROR aaaa 
ROR aaaa,X 


6A 
66 
76 
6E 
7E 


1 
2 
2 
3 
3 


2 
5 
6 
6 

7 



RTI 



Operation: Pf PCf 



Return from Interrupt 



RTS 

Return from Subroutine 

Operation: PC|, PC + 1 -> PC 



NZCIDV 
From Stack 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


RTI 


40 


1 


6 



N ZC I DV 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


RTS 


60 


1 


6 
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SBC 



Subtract from Accumulator with Carry 



Operation: A — M — C -» A 
Note: C = Borrow 



NZCIDV 
J J J '-- J 



Addressing 


Assembly Language 


OP 


No. 


No. 


Mode 


Form 


CODE 


Bytes 


Cycles 


Immediate 


SBC #dd 


E9 


2 


2 


Zero Page 


SBC aa 


E5 


2 


3 


Zero Page, X 


SBC aa,X 


F5 


2 


4 


Absolute 


SBC aaaa 


ED 


3 


4 


Absolute, X 


SBC aaaa,X 


FD 


3 


4* 


Absolute, Y 


SBC aaaa,Y 


F9 


3 


4* 


(Indirect, X) 


SBC (aa,X) 


El 


2 


6 


(Indirect), Y 


SBC (aa),Y 


Fl 


2 


5* 



*Add 1 when page boundary is crossed. 



SEC 



Operation: 1 -» C 



Set Carry Flag 



SED 



Operation: 1 -* D 



Set Decimal Mode 



N ZC I DV 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


SEC 


38 


1 


2 



N ZC I DV 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


SED 


F8 


1 


2 
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SEI 



Operation: 1 -» I 



Set Interrupt Disable Status 



N zc I DV 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


SEI 


78 


1 


2 



STA 



Store Accumulator in Memory 



Operation : A -» M 



NZC I DV 



Addressing 


Assembly Language 


OP 


No. 


No. 


Mode 


Form 


CODE 


Bytes 


Cycles 


Zero Page 


STA a a 


85 


2 


3 


Zero Page, X 


STA aa,X 


95 


2 


4 


Absolute 


STA aaaa 


8D 


3 


4 


Absolute, X 


STA aaaa,X 


9D 


3 


5 


Absolute, Y 


STA aaaa,Y 


99 


3 


5 


(Indirect, X) 


STA (aa,X) 


81 


2 


6 


(Indirect), Y 


STA (aa),Y 


91 


2 


6 



STX 



Operation: X->M 



Store Index X in Memory 



NZC I DV 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Zero Page 
Zero Page, Y 
Absolute 


STX aa 
STX aa,Y 
STX aaaa 


86 
96 
8E 


2 
2 
3 


3 

4 
4 
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STY 



Operation: Y -> M 



Store Index Y in Memory 



TAX 



N Z C I D V 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Zero Page 
Zero Page, X 
Absolute 


STY aa 
STY aa,X 
STY aaaa 


84 
94 
8C 


2 
2 
3 


3 
4 

4 



Transfer Accumulator to Index X 



Operation: A -> X 









N ZC I DV 

J J 


Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


TAX 


AA 


1 


2 



TAY 



Transfer Accumulator to Index Y 



Operation: A -> Y 









N ZC I DV 

■J J 


Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


TAY 


A8 


1 


2 
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TSX 



Transfer Stack Pointer to Index X 



Operation: S -* X 









NZC I DV 

y y 


Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


TSX 


BA 


1 


2 



TXA 



Transfer Index X to Accumulator 



Operation: X-» A 









NZCIDV 

y y 


Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


TXA 


8A 


1 


2 



TXS 



Transfer Index X to Stack Pointer 



Operation: X->S 



NZCIDV 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


TXS 


9A 


1 


2 



TYA 



Transfer Index Y to Accumulator 



Operation: Y-> A 



NZCIDV 

J J 



Addressing 
Mode 


Assembly Language 
Form 


OP 
CODE 


No. 
Bytes 


No. 
Cycles 


Implied 


TYA 


98 


1 


2 
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Appendix E 



Screen Display Codes 



SET 1 SET 2 POKE SET 1 SET 2 POKE SET 1 SET 2 POKE 



A 
B 
C 

D 

E 

F 

G 

H 
I 

J 

K 

L 

M 

N 

O 

P 

Q 

R 
S 

T 
U 
V 

w 

X 
Y 

z 



m 
n 
o 
P 

q 

r 
s 
t 
u 

V 

w 

X 

y 

z 





1 

2 
3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
19 
20 
21 
22 
23 
24 
25 
26 



[ 
£ 



SPACE 



# 
$ 
% 



/ 

1 
2 
3 
4 
5 



27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 



6 

7 
8 
9 



> 

B 



m 

B 
B 
B 
□ 
D 

a 

a 

□ 


n 
□ 



A 
B 
C 
D 

E 
F 
G 
H 
I 

J 
K 
L 
M 
N 

O 
P 



54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
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SET 1 SET 2 


POKE 


SET 1 SET 2 POKE 


SET 1 


SET 2 


POKE 


H 


Q 


81 


E 


97 


a 




113 


□ 


R 


82 


H 


98 


H 




114 


H 


S 


83 


n 


99 


a] 




115 


D 


T 


84 


□ 


100 


D 




116 


Q 


U 


85 


□ 


101 


E 




117 


H 


V 


86 


m 


102 


a 




118 


O 


w 


87 


□ 


103 


□ 




119 


ffl 


X 


88 


Q 


104 


n 




120 


d 


Y 


89 


B ^ 105 


u 




121 


ffi 


z 


90 


□ 


106 


□ 


H 


122 


ffl 




91 


ffl 


107 


B 




123 


E 




92 


. 


108 


a 




124 


m 




93 


[5 


109 


H 




125 


H 


94 


a 


110 


E 




126 


a s 


£ 


95 
96 




111 
112 


H 




127 


SPACE 

. . 





Codes from 128-255 are reversed images of codes 0-127. 
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Appendix F 



Ascii values 



PRINTS CHR$ 


PRINTS 


CHR$ 


PRINTS 


CHRS 


PRINTS 


CHR$ 





SB 


17 


" 


34 


3 


51 


1 




18 


# 


35 


4 


52 


2 




19 


$ 


36 


5 


53 


3 




20 


% 


37 


6 


54 


4 




21 


& 


38 


7 


55 


^^^k 5 




22 




39 


8 


56 


6 




23 


( 


40 


9 


57 


7 




24 


) 


41 




58 


ois*8us^^jg8 




25 


* 


42 


\ 


59 


ENABLES |^BQ 9 




26 


+ 


43 


<Z 


60 


10 




27 


, 


44 


= 


61 


11 


jBI 


28 


- 


45 


3 


62 


12 


QQ 


29 




46 


? 


63 


r 


13 


BBS 


30 
31 
32 


/ 



1 


47 
48 
49 


@ 
A 
B 


64 


■ SWITCH TO 
| LOWER CASE 


14 


65 ! 




15 


66 




16 


! 


33 


2 


50 


C 


67 
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PRINTS 


CHR$ 


PRINTS 


CHR$ 


PRINTS CHR$ 


PRINTS 


CHRS 


D 


68 


a 


97 


@ 126 




155 


E 


69 


tu 


98 


a 127 


^^m 


156 


F 


70 


H 


99 


128 


fcffl 


157 


G 


71 


H 


100 


129 


^^ 


158 


H 


72 


D 


101 


130 


A 


159 


1 


73 


B 


102 


131 


E^9 


160 


J 


74 


D 


103 


132 


E 


161 


K 


75 


O 


104 


f1 133 


H 


162 


L 


76 


Q 


105 


f3 134 


n 


163 


M 


77 


Q 


106 


f5 135 


D 


164 


N 


78 


Q 


107 


f7 136 


D 


165 





79 


□ 


108 


f2 137 


m 


166 


P 


80 


S 


109 


f4 138 


□ 


167 


Q 


81 





110 


f6 139 


s 


168 


R 


82 


□ 


111 


f8 140 


B 


169 


S 


83 


□ 
H 
□ 


112 


QQQ Q141 


□ 


170 


T 
U 


84 
85 


113 
114 


tiZBEBESi 14? 


OB 


171 
172 


niMJiiKH 14<i 


143 


V 


86 


H 


115 


jQ^ 144 


Q 


173 


W 


87 


□ 


116 


(££ 145 


a 


174 


X 


88 


Q 


117 


SRk 146 


□ 


175 


Y 


89 


B 


118 


H 147 


H 


176 


Z 


90 


O 


119 


M 148 


H 


177 


[ 


91 


a 


120 


149 


5a 


178 


£ 


92 


a 


121 


150 


BD 


179 


] 


93 


ffl 


122 


151 


c 


180 


t 


94 


ffl 


123 


152 


c 


181 


«- 


95 


E 


124 


153 


a 


182 


B 


96 


m 


125 


154 


□ 


183 
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PRINTS 


CHRS 


PRINTS 


CHRS 


PRINTS 


CHR$ 


PRINTS 


CHRS 


n 
y 


184 
185 


□ 


186 
187 




188 
189 


B 
S 


190 
191 



CODES 


192-223 


SAME AS 


96-127 


CODES 


224-254 


SAME AS 


160-190 


CODE 


255 


SAME AS 


126 
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Appendix G 

Basic error messages 



BAD DATA String data was received from an open file, but the pro- 
gram was expecting numeric data. 

BAD SUBSCRIPT The program was trying to reference an element of 
an array whose number is outside of the range specified in the DIM 
statement. 

CAN'T CONTINUE The CONT command will not work, either because 
the program was never RUN, there has been an error, or a line has 
been edited. 

DEVICE NOT PRESENT The required I/O device was not available for 
an OPEN, CLOSE, CMD, PRINT#, INPUT#, or GET#. 
DIVISION BY ZERO Division by zero is a mathematical oddity and not 
allowed. 

EXTRA IGNORED Too many items of data were typed in response to 
an INPUT statement. Only the first few items were accepted. 
FILE NOT FOUND If you were looking for a file on tape, and END-OF- 
TAPE marker was found. If you were looking on disk, no file with that 
name exists. 

FILE NOT OPEN The file specified in a CLOSE, CMD, PRINT#, INPUT#, 
or GET#, must first be OPENed. 

FILE OPEN An attempt was made to open a file using the number of 
an already open file. 

FORMULA TOO COMPLEX The string expression being evaluated 
should be split into at least two parts for the system to work with. 
ILLEGAL DIRECT The INPUT statement can only be used within a pro- 
gram, and not in direct mode. 

ILLEGAL QUANTITY A number used as the argument of a function or 
statement is out of the allowable range. 
LOAD There is a problem with the program on tape. 
NEXT WITHOUT FOR This is caused by either incorrectly nesting loops 
or having a variable name in a NEXT statement that doesn't correspond 
with one in a FOR statement. 

NOT INPUT FILE An attempt was made to INPUT or GET data from a 
file which was specified to be for output only. 

NOT OUTPUT FILE An attempt was made to PRINT data to a file which 
was specified as input only. 

OUT OF DATA A READ statement was executed but there is no data 
left unREAD in a DATA statement. 
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OUT OF MEMORY There is no more RAM available for program or 
variables. This may also occur when too many FOR loops have been 
nested, or when there are too many GOSUBs in effect. 
OVERFLOW The result of a computation is larger than the largest 
number allowed, which is 1 .70141884E + 38. 

REDIM'D ARRAY An array may only be DIMensioned once. If an array 
variable is used before that array is DIM'd, an automatic DIM operation 
is performed on that array setting the number of elements to ten, and 
any subsequent DIMs will cause this error. 

REDO FROM START Character data was typed in during an INPUT 
statement when numeric data was expected. Just re-type the entry so 
that it is correct, and the program will continue by itself. 
RETURN WITHOUT GOSUB A RETURN statement was encountered, 
and no GOSUB command has been issued. 

STRING TOO LONG A string can contain up to 255 characters. 
7SYNTAX ERROR A statement is unrecognizable by the Commodore 
64. A missing or extra parenthesis, misspelled keywords, etc. 
TYPE MISMATCH This error occurs when a number is used in place of a 
string, or vice-versa. 

UNDEF'D FUNCTION A user defined function was referenced, but it 
has never been defined using the DEF FN statement. 
UNDEF'D STATEMENT An attempt was made to GOTO or GOSUB or 
RUN a line number that doesn't exist. 

VERIFY The program on tape or disk does not match the program cur- 
rently in memory. 
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Further Reading 



Apart from advising you read anything written by me, I include here 
a list of books and magazines that will certainly be enjoyable and 
informative. 



Books 

Using the 64 by Peter Gerrard, published by Duckworth (£9.95). Good 
for novice or expert; contains all the necessary information for the 64. 

Illustrating Basic by Donald Alcock, published by C.U.P. (£1.99). 
Good for beginners to Basic. 

Advanced 6602 Programming by Rodnay Zaks, published by Sybex 
(£10.25). Invaluable, as are all of Zaks' books. 

6502 Machine Code for Humans by Alan Toothill and David Barrow, 
published by Granada (£7.95). If you are just starting on machine code, 
this is as good a place as any to start. 

6502 Assembly Language Programming by L.A. Leventhal, 
published by McGraw Hill, Berkeley, California. A must for everyone 
using machine code. 

Commodore 64 Programmer's Reference Guide, published by 
Commodore (£14.95). 

The Complete Commodore 64 ROM Disassembly by Peter Gerrard 
and Kevin Bergin, published by Duckworth (£5.95). 

Programming the Pet/CBM by Raeto West, published by Level 
(£14.90). 

Commodore 64 Exposed by Bruce Bayley, published by Melbourne 
House (£6.95). 

Advanced 6502 Programming by Rodnay Zaks (£10.25). 
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Magazines 

Commodore Horizons. Very informative about hardware and 
software, also contains many fair user programs. 

Commodore User. The best specialist magazine for Commodore 
owners. The contributors include some of the best Commodore 
programmers. 

Personal Computer News. The best weekly by far, this contains 
a great deal of information about hardware and software, and is 
particulary good for games. 

Compute. The best magazine for Commodore owners, although it 
is not solely a Commodore magazine. This is an American publication, 
but some shops do stock it. 

Personal Computer World. A journal for those wishing to keep up 
with the whole range of hardware and software, this also has good 
columns for beginners and on machine code. 

Micro Adventurer. This magazine is dedicated to adventure and 
strategy games. It includes reviews, readers' programs and an excellent 
help column. 
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Index 



Accumulator, 33, 92, 94 

ACPTR (Kernal routine), 94 

Advance cursor, 117 

Alternate RAM, 169 

Alternate ROM, 169 

Ascii, 27, 28,47, 124 

Ascii codes, 203-5 

Assembler, 28 

Auto-run, 44, 45, 49 

BACKUP (disk command), 56 

Banks, 41 

Basic, 13,34,35,37,41 

Basic error messages, 206, 207 

Basic graph, 156, 157 

Basic tokens, 179-80 

Block count, 67 

Borders, 149-56 

CBINV (Break vector), 120 

Channel, 51 

Characters, 45 

Character set, 41, 169 

Charget, 85 

CHKIN (Kernal routine), 89, 90, 94 

CHKOUT (Kernal routine), 95 

CHR$, 135 

CHRIN (Kernal routine), 89, 96 

CHROUT (Kernal routine), 89, 96 

CINV (IRQ vector), 120 

CIOUT (Kernal routine), 97 

CLALL (Kernal routine), 97 

Clear screen, 117 

CLOSE command, 57 

Close (Kernal routine), 98 

Close vector, 36 

CLRCHIN (Kernal routine), 98 

Code to Basic, 137-9 

Colour memory, 169 

Crash, 31, 36 

Crunch tokens, 116 

Cursor control, 133-5 

Customising, 128 

Device, 51 

Direct mode, 31,32, 51 

DIRECTORY command, 56 

Disable, 32, 33 

Disassembler, 28 



Disk, 27, 45, 54 

Disk commands, 56 

Disk directory, 62 

Disk directory and auto-load, 64-9 

Disk error messages, 57 

Disk errors, 54 

Download character set, 123-6 

Error codes, 115 

Exit to Basic, 29, 32 

Filename, 49 

Fill memory, 28 

Find any tape header, 118 

FRE(0), 135 

FX-80, 123 

Garbage collection, 116 

GETIN (Kernal routine), 91, 99 

Go run, 28 

Graph, 156 

Hard copy, 51-3 

Hardware vectors, 93 

Header, 45 

HEADER command, 57 

Hex to Dec, 135-7 

Hi-res, 139-49 

HOME, 124, 136 

Hunt memory, 28 

IBASIN (CHRIN vector), 121 

IBSOUT (CHROUT vector), 121 

ICHKIN (CHKIN vector), 121 

ICKOUT (CHKOUT vector), 121 

ICLALL (CLALL vector), 121 

ICLOSE (CLOSE vector), 120 

ICLRCH (CLRCHN vector), 121 

ICRNCH (Token vector), 1 19 

IERROR (Error message vector), 

119 
IEVAL (Evaluate token vector), 

120 
IGETIN (GETIN vector), 121 
IGONE (Char, dispatch vector), 

119 
ILOAD (LOAD vector), 122 
IMAIN (Warm start vector), 119 
INITIALISE command, 57 
Input, 66, 118 
Input routine, 132, 133 
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INSERT, 124 

Instructions, 28 

Interface chip 1 &2, 169 

Internal protection, 30 

Interrupts, 33, 81-5 

1/0,31,36,127 

IOBASE (Kernal routine), 99 

IOINIT(Kernal routine), 100 

IOPEN (OPEN vector), 120 

IQPLOP (LIST vector), 119 

ISAVE (SAVE vector), 120 

ISTOP (STOP vector), 120 

Joysticks, 131 

Jumbo Jump table, 93 

Jump table, 170 

Kernal, 32, 51, 55, 62, 93, 1 15 

Key values, 177, 178 

Keyboard buffer, 45 

Kill tape motor, 118 

List, 36, 38 

LISTEN (Kernal routine), 100 

Listings, 32 

Load, 27, 28, 36, 44, 45, 92, 101, 

127 
Load (perform), 116 
Loader, 30 
Locations, 31 
Machine code, 27, 37 
Machine code instruction set, 

181-200 
MEMBOT (Kernal routine), 102 
Memory dump, 42 
Memory map, 36, 158-74 
MEMTOP (Kernal routine), 102 
Merge, 77-80 
Monitor, 27, 34 
Moving Basic, 37 
New, 53 

New Commands, 85-8 
New line, 115 

NMINV (Interrupt vector), 120 
Old, 53, 54 

Open, 66, 89, 102, 127 
OPEN command, 56 
Operating system, 93 
Other vectors, 36 



Output, 51 

Output to screen, 118 

Page one, 165 

Page three, 167, 168, 169 

Page two, 165, 166, 167 

PLOT (Kernal routine), 91, 103 

Pop, 81 

Power reset entry point, 1 18 

Power up, 37,41,117 

Printer, 51 

Program, 30, 35,41 

Programs, 37 

Prompt, 74 

Protected software, 44, 45 • 

Protection, 30, 37 

RAM,31,40,62,76 

RAMTAS (Kernal routine), 104 

RDTIM (Kernal routine), 104 

READST (Kernal routine), 105 

Register, 29, 40 

REM, 42, 66 

RENAME command, 57 

Reserved words, 127-31 

Reset, 31,34,36 

Restore, 31, 106 

Retreat cursor, 117 

REV ON, 124 

ROM, 3 1 , 36, 38, 40, 42, 93, 1 1 5, 

128,169 
ROM memory map, 172, 173, 174 
Run (perform), 116 
Run/stop, 31,32, 33, 34 
Save, 27, 29, 36, 45, 106 
Save (perform), 116 
SCNKEY, 107 
Scrambled, 31 
SCRATCH command, 57 
Screen, 41, 74, 107 
Screen and character set, 41 
Screen display codes, 201, 202 
Screen dump, 75, 76 
Screen memory, 169 
Screen print, 117 
Scrolling, 83 

SECOND (Kernal routine), 108 
SETLFS (Kernal routine), 92, 108 
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SETMSG (Kernal routine), 109 
SETNAM (Kernal routine), 92, 109 
SETTIM (Kernal routine), 110 
SETTMO (Kernal routine), 1 1 1 
Shift run/stop, 46 
SID chip, 169 
Software, 44 
Stop, 32, 1 1 1 
String memory, 135 
STR$, 135 
Supermon, 13-29 
Supermon instructions, 28, 29 
Symbol chart (control 

characters), 12 
TALK (Kernal routine), 1 12 
Tape, 44 
Tape control, 69 
Tape search, 70-3 



TKSA (Kernal routine), 1 12 
Tokens, 46, 179, 180 
Transfer memory, 29 
UDTIM (Kernal routine), 113 
UNLSN (Kernal routine), 113 
UNTLK (Kernal routine), 1 14 
USR (function jump), 120 
USRCMD (user-defined vector) 

121 
VALIDATE command, 56 
Variables, 49 

Vectors, 33, 37, 1 14, 1 19-22 
VIC chip, 41 
Video chip, 169 
Warm restart, 117 
Word processor, 74 
Zero Page, 158, 159, 160, 161, 

162, 163,164,165 
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